执行查找并从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中的参考，但要确保申报您使用任何微软Word枚举consts。

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