ActiveDocument.Shapes("Text Box 2").Select 这句话在DELPHI里怎么写呢?

Question

Sub Macro2()
'
' Macro2 Macro
' Macro recorded 2003-4-28 by HZR
'
    ActiveDocument.Shapes("Text Box 5").Select //这句话怎么翻译成DELPHI里的命令呢？    Selection.Paste
    Selection.ShapeRange.Select
    ActiveDocument.Shapes("Text Box 2").Select
    Selection.TypeText Text:="ff"
End Sub我改成：WordDoc.Shapes('Text Box 5').Select;结果报错：
Project raised exception class EOleException with message "Shapes' is not a method".
Process stopped. Use Step or Run to continue.