用于在页脚中查找文本的VBA Word宏(已实现)并打印到文本文件(不太有效)

Sub FindTextInFooterAndPrintToFile()
    Dim doc As Document
    Dim rng As Range
    Dim footer As Range
    Dim searchText As String
    Dim result As String
    Dim fileNum As Integer
    
    ' 设置要查找的文本
    searchText = "要查找的文本"
    
    ' 获取当前文档对象
    Set doc = ActiveDocument
    
    ' 遍历每个页脚
    For Each footer In doc.Sections(1).Footers
        ' 在页脚中查找文本
        Set rng = footer.Range
        With rng.Find
            .Text = searchText
            .MatchCase = False
            .Execute
            ' 如果找到了文本，则将结果添加到result字符串中
            If .Found Then
                result = result & rng.Text & vbCrLf
            End If
        End With
    Next footer
    
    ' 将结果打印到文本文件
    fileNum = FreeFile
    Open "C:\result.txt" For Output As fileNum
    Print #fileNum, result
    Close fileNum
    
    ' 提示用户操作完成
    MsgBox "操作完成！结果已保存到C:\result.txt文件中。"
End Sub