如何通过Word VBA实现正文、脚注及尾注中的多内容批量查找替换并高亮替换文本？

First, let's break down your existing MultiReplace macro—it falls short of your requirements in two critical ways:

• It only operates on the selected range in your document, not across all required story objects (main body text, footnotes, endnotes)
• It doesn't apply any highlighting to the text that gets replaced

Here's a refined VBA macro that fixes both gaps and aligns perfectly with what you need:

Sub MultiReplaceWithHighlight()
    Dim oldTexts As Variant, newTexts As Variant
    Dim i As Long
    Dim currentStory As Range
    
    ' Define your replacement pairs (keep the order matched between old and new)
    oldTexts = Split("<et al>,<pp>.^32,<p>.^32", ",")
    newTexts = Split("et^sal,pp.^s,p.^s", ",")
    
    ' Loop through all target story objects: main text, footnotes, endnotes
    For Each currentStory In ActiveDocument.StoryRanges
        Select Case currentStory.StoryType
            Case wdMainTextStory, wdFootnotesStory, wdEndnotesStory
                ' Process each replacement pair for this story
                For i = LBound(oldTexts) To UBound(oldTexts)
                    With currentStory.Find
                        .ClearFormatting
                        .Replacement.ClearFormatting
                        ' Set yellow highlight for replaced text (adjust color as needed)
                        .Replacement.Highlight = True
                        
                        .Text = oldTexts(i)
                        .Replacement.Text = newTexts(i)
                        
                        .Format = True ' Enable format recognition for replacements
                        .MatchWholeWord = True
                        .MatchAllWordForms = False
                        .MatchWildcards = True
                        .Execute Replace:=wdReplaceAll
                    End With
                Next i
        End Select
    Next currentStory
End Sub

Key Improvements Explained: #

• Full Story Coverage: We loop through ActiveDocument.StoryRanges and explicitly target the main body text, footnotes, and endnotes using their built-in StoryType constants. This ensures no required content is overlooked.
• Highlighted Replacements: We added .Replacement.Highlight = True to apply yellow highlighting to all replaced text. You can swap this for another color using wdColor[ColorName] (e.g., wdColorBlue, wdColorGreen) if preferred.
• Efficient Pair Handling: We split the old/new text strings into arrays once at the start, instead of re-splitting them every loop iteration—this speeds up the macro, especially on large documents.
• Format Enabled: We set .Format = True so Word recognizes and applies the highlight formatting during replacements.

Quick Customization Tips: #

• If you need to include additional story types (like comments or text boxes), just add their constants to the Case statement (e.g., wdCommentsStory, wdTextFrameStory).
• The wildcard matching is preserved from your original macro—ensure your search patterns are compatible with Word's wildcard syntax for best results.

内容的提问来源于stack exchange，提问作者Karthikeyan B