Dim wrdApp As Word.Application
    
    Set wrdApp = CreateObject("Word.Application")
    'MacroName  String 类型,必需。宏的名称。可以是任意模板、模块和宏名的组合。例如,下面的语句都是有效的:
    With wrdApp
        .Application.Run "Normal.Module1.MAIN"
        .Application.Run "MyProject.MyModule.MyProcedure"
        .Application.Run "'My Document.doc'!ThisModule.ThisProcedure"
    End With我这也是从VBAWRD9.CHM(Word关于VBA的帮助说明,安装Word就可得到)中搞来的,
有时间多看看它(VBAWRD9.CHM),有帮助的!