使用 Excel VBA 宏查找并替换 Word 中的页脚文本

我正在尝试做一个macro in Excel这会打开一个Word文档，找到一个指定的文本，它在里面footer在 Word 文档中，并将其替换为文本。

目前，我的宏打开了单词文档，但我不知道如何进入页脚并找到这些文本。

    Dim objWord
    Dim objDoc
    Set objWord = CreateObject("Word.Application")
    Set objDoc = objWord.Documents.Open(ThisWorkbook.Path & "/NotaPromissoriaAutomatica.docx")
    objWord.Visible = True

页脚有两个文本必须替换

1 - VAR_CIDADE > 将替换当前城市（位于我的 Excel 表的 A1 中）
2 - VAR_DATA > 将替换当前日期（位于我的 Excel 表的 A2 中）

我创建了一个带有单页、页眉和页脚的测试文档，页脚使用关键字“VAR_DATA”。下面的示例代码将搜索文档中的所有页脚并进行替换。请注意，代码only搜索于Section(1)尽管。如果您有更多部分，则可能需要创建一个外部循环来搜索每个部分中的每个页脚。

Option Explicit

Public Sub FixMyFooter()
    Dim myWord As Object
    Dim myDoc As Word.Document
    Set myWord = CreateObject("Word.Application")
    Set myDoc = myWord.Documents.Open("C:\Temp\footertest.docx")

    Dim footr As Word.HeaderFooter
    For Each footr In myDoc.Sections(1).Footers
        With footr.Range.Find
            .Text = "VAR_DATA"
            .Replacement.Text = Format(Now(), "dd-mmm-yyyy")
            .Execute Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindStop
        End With
    Next footr

    myDoc.Save
    myWord.Quit
End Sub

您需要扩展示例以查找具有您自己的格式的附加文本。