如何在VB.net应用程序中查找和替换word文档页脚中的文本？

Imports Microsoft.Office.Interop.Word

Public Class Form1
    Private Sub btnReplace_Click(sender As Object, e As EventArgs) Handles btnReplace.Click
        ' 创建Word应用程序对象
        Dim wordApp As New Application()

        ' 打开Word文档
        Dim doc As Document = wordApp.Documents.Open("C:\path\to\your\document.docx")

        ' 遍历文档中的所有节
        For Each section As Section In doc.Sections
            ' 遍历节中的所有页脚
            For Each footer As HeaderFooter In section.Footers
                ' 获取页脚中的所有内容
                Dim range As Range = footer.Range

                ' 查找并替换文本
                range.Find.Execute(FindText:="要查找的文本", ReplaceWith:="要替换的文本", Replace:=WdReplace.wdReplaceAll)
            Next
        Next

        ' 保存并关闭文档
        doc.Save()
        doc.Close()

        ' 退出Word应用程序
        wordApp.Quit()
    End Sub
End Class