请高手指点，如何在Word中执行下面的宏，在线等待！！！(50分)

请高手指点，如何在Word中执行下面的宏
Sub 图章1()
'

'
Documents.Open FileName:="c:/test1.doc", ConfirmConversions:=False, ReadOnly:= _
False, AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:= _
"", Revert:=False, WritePasswordDocument:="", WritePasswordTemplate:="", _
Format:=wdOpenFormatAuto

ActiveDocument.Shapes("WordArt 13").Select
ActiveDocument.Shapes("AutoShape 3").Select
ActiveDocument.Shapes.Range(Array("AutoShape 3", "WordArt 15")).Select
ActiveDocument.Shapes.Range(Array("AutoShape 3", "WordArt 15", _
"WordArt 13")).Select
ActiveDocument.Shapes.Range(Array("AutoShape 3", "WordArt 15", _
"WordArt 13", "Oval 2")).Select
Selection.Copy
ActiveWindow.Close 0
Selection.Paste
Selection.ShapeRange.Group.Select

End Sub

为什么,没有人指点????