VBAreplaceword文档中的某些文本？

我正在使用下面的代码来尝试replaceWord文档中的某些文本并将副本另存为。

这是我的代码：

Sub Macro1() Dim app As Word.Application Dim doc As Word.Document Set app = CreateObject("Word.Application") app.Visible = True Set doc = app.Documents.Open("G:\QUALITY ASSURANCE\03_AUDITS\PAI\templates\Audit Announcement Template.docx") With app.doc.Content.Find .Text = "Insert Date" .Replacement.Text = "Hello" .Wrap = wdFindContinue .Execute Replace:=wdReplaceAll End With doc.SaveAs Filename:="G:\QUALITY ASSURANCE\03_AUDITS\PAI\templates\Audit Announcement Template2.doc", _ FileFormat:=wdFormatDocument doc.Close app.Quit End Sub 

我在这一行得到一个编译错误：

 With app.doc.Content.Find 

有人可以告诉我我要去哪里吗？

Answer 1

你的With app.doc.Content.Find不正确，因为doc不是app对象的成员，它是你创build的一个variables。

更改为： With doc.Content.Find

当你打开一个.docx文件，你可能想要保存这个文件，你需要：

 doc.SaveAs Filename:="G:\path\file.docx", FileFormat:=WdSaveFormat.wdFormatDocumentDefault 

你是早期绑定（通过引用），所以不需要CreateObject()你可以简单地：

 Set app = new Word.Application