基于Excel中数据库的VBA在word中查找和替换

Question

我正在寻找一种基于 Excel 中的数据在 Word 文档中查找和替换文本的方法

更具体地说：

A 列 = 我要查找的文本 B 列 = 文本我想将找到的文本替换为

我已经知道 VBA 中的基本查找和替换代码，但我正在努力弄清楚如何做到这一点（跨应用程序）。

谁能帮帮我？

谢谢:)

请求的屏幕截图：

由于显示了潜在的敏感信息，我截取了我的电子表格示例，但这给出了要点。

Answer 1

以下代码需要引用MS Word 14.0 Object Library 或您的任何等效项。如果您不想要早期绑定，则由您决定将其转换为后期绑定。

Sub FindReplaceInWord()

    Dim Wbk As Workbook: Set Wbk = ThisWorkbook
    Dim Wrd As New Word.Application
    Dim Dict As Object
    Dim RefList As Range, RefElem As Range

    Wrd.Visible = True
    Dim WDoc As Document
    Set WDoc = Wrd.Documents.Open("C:\xxx\Doc1.docx") 'Modify as necessary.

    Set Dict = CreateObject("Scripting.Dictionary")
    Set RefList = Wbk.Sheets("Sheet1").Range("A1:A3") 'Modify as necessary.

    With Dict
        For Each RefElem In RefList
            If Not .Exists(RefElem) And Not IsEmpty(RefElem) Then
                .Add RefElem.Value, RefElem.Offset(0, 1).Value
            End If
        Next RefElem
    End With

    For Each Key In Dict
        With WDoc.Content.Find
            .Execute FindText:=Key, ReplaceWith:=Dict(Key)
        End With
    Next Key

    'Enable the following three if you want.
    'WDoc.Save
    'WDoc.Close
    'Wrd.Quit

End Sub

截图：

Word Document (before running code)

Reference List in Excel

Word Document (after running code)

如果这有帮助，请告诉我们。

编辑：

作为参考，代码与您的列表没有问题。我认为这完全是另一回事。看我的截图。

如您所见，使用Debug.Print Key, Dict(Key) 表明它是安全的。我已经修改了上面的代码以更改可能导致此问题的某些内容。 :)