vba批量替换word正文和页眉页脚指定文字的代码

以下是一个示例VBA代码，可以实现批量替换Word文档中正文和页眉页脚中的指定文字：

Sub ReplaceText()

    Dim Doc As Document
    Dim Rng As Range
    Dim HdrFtr As HeaderFooter
    Dim Sec As Section
    
    '打开要处理的文档
    Set Doc = Documents.Open("文件路径")
    
    '处理正文中的指定文字
    Set Rng = Doc.Range
    With Rng.Find
        .Text = "要替换的文字"
        .Replacement.Text = "替换后的文字"
        .Wrap = wdFindContinue
        .Execute Replace:=wdReplaceAll
    End With
    
    '处理页眉页脚中的指定文字
    For Each Sec In Doc.Sections
        For Each HdrFtr In Sec.Headers
            Set Rng = HdrFtr.Range
            With Rng.Find
                .Text = "要替换的文字"
                .Replacement.Text = "替换后的文字"
                .Wrap = wdFindContinue
                .Execute Replace:=wdReplaceAll
            End With
        Next HdrFtr
        For Each HdrFtr In Sec.Footers
            Set Rng = HdrFtr.Range
            With Rng.Find
                .Text = "要替换的文字"
                .Replacement.Text = "替换后的文字"
                .Wrap = wdFindContinue
                .Execute Replace:=wdReplaceAll
            End With
        Next HdrFtr
    Next Sec
    
    '关闭文档
    Doc.Close SaveChanges:=True

End Sub

请将代码中的“文件路径”替换为您要处理的Word文档的实际路径。此代码将在替换完成后自动保存并关闭文档。