定义Word对象 Dim wrdW as Word.Application Set wrdW = CreateObject("Word.Application") 打开文档 Dim wrdDoc as Document Set wrdDoc = wrdW.Documents.Open Filename:="C:\MyDoc.dot" 保存文档 wrdW.Documents("C:\MyDoc.dot").Save 关闭文档 wrdW.Documents("C:\MyDoc.dot").Close SaveChange:=wdSaveChange其它的操作代码都可在宏中看到了,只要通过指定对象(在这里是wrdW)调用就可以了
先引用Microsoft Word 11.0 Object Library,11.0对应你的office版本 Dim WdApp As Word.Application Set WdApp = CreateObject("Word.Application") 然后在录制的宏前加上WdApp,比如 WdApp.Documents.Add
Dim wrdW as Word.Application
Set wrdW = CreateObject("Word.Application") 打开文档
Dim wrdDoc as Document
Set wrdDoc = wrdW.Documents.Open Filename:="C:\MyDoc.dot" 保存文档
wrdW.Documents("C:\MyDoc.dot").Save 关闭文档
wrdW.Documents("C:\MyDoc.dot").Close SaveChange:=wdSaveChange其它的操作代码都可在宏中看到了,只要通过指定对象(在这里是wrdW)调用就可以了
Dim WdApp As Word.Application
Set WdApp = CreateObject("Word.Application")
然后在录制的宏前加上WdApp,比如
WdApp.Documents.Add