在word文档中查找和替换excel vba中的文本

Question

我正在尝试基于一个模板创建多个 word 文档，目前我可以打开模板 word doc 并将其保存为我想要的文件名，该文件名是从 excel 中的表格中提取的。我想要做的是在将模板另存为新文档之前替换模板中的文本“##Title##”。这是我的代码，它不会替换任何文本：

            Set objWord = CreateObject("Word.Application")
            Set objDoc = objWord.Documents.Open(reportTemplate)
            objDoc.Content.Find.Text = "##Title##"
            objDoc.Application.Selection.Find.Text = "##Title##"
            objDoc.Application.Selection.Find.Execute
            objDoc.Application.Selection.Find.Replacement.Text = clients(i)
            objDoc.Application.Selection.Find.Execute
            objWord.Visible = True
            objDoc.SaveAs (fileName)

任何帮助都会很棒，谢谢！

Answer 1

搜索时不需要执行执行（仅用于替换），这里的常见答案是：

With objDoc.Content.Find

.Text = "##Title##"
.Replacement.Text = clients(i)
.Forward = True
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
.Execute Replace:=wdReplaceOne   
End With

微软官方文档也有good examples