在 Excel 中打开的 Word 文档中执行查找和替换功能

Question

我需要在 Excel 中打开一个 Word 文档（我成功了），然后（以编程方式）在该文档中执行查找/替换（没有成功）。

使用 Excel 宏的原因是替换文本取自一些 Excel 单元格。

Sub Word_find_replace_attempt_from_Excel()

    Set WordApp = CreateObject("Word.Application")
    WordApp.Visible = True
    Set WordDoc = WordApp.Documents.Open("C:\Test.doc") 'it exists already
    With WordDoc
        Find.Execute _
            FindText:="a", _
            ReplaceWith:="b", _
            Replace:=wdReplaceAll
    End with
End Sub

Answer 1

您不需要为 MS Word 设置引用，但请确保为您使用的任何 MS Word 枚举声明常量。

Sub Word_find_replace_attempt_from_Excel()
    Const wdReplaceAll = 2

    Set WordApp = CreateObject("Word.Application")
    WordApp.Visible = True

    Set WordDoc = WordApp.Documents.Open("C:\Test.doc")
    With WordDoc.Content.Find
        .Execute FindText:="a", ReplaceWith:="b", _
                 Format:=True, Replace:=wdReplaceAll, Forward:=True
    End With

End Sub