急!!!,下面是在Word中录制的一段宏，请高手指点如何在Delphi中执行！！！(100分)

Sub www()

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

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


End Sub