Hey there! I get it—you want to not only highlight specific words in red but also attach a comment to each instance, and your current code only handles the color change. Let's fix that together!

The key is to work with a Range object instead of relying on Selection (it's more efficient and avoids annoying cursor jumps) and add a comment right after each successful find. Here's a revised version of your code that does both tasks:

Sub WordSearcherWithComments(targetWord As String)
    Dim findRange As Range
    Dim commentText As String
    
    ' Customize your comment text here
    commentText = "Flagged word: " & targetWord
    
    ' Start with the entire document content
    Set findRange = ActiveDocument.Content
    
    With findRange.Find
        .ClearFormatting
        .Text = targetWord
        .Forward = True
        .Wrap = wdFindStop ' Prevents infinite loops by stopping at document end
        .Format = False
        .MatchCase = False ' Set to True if you need case-sensitive search
        .MatchWholeWord = True ' Uncomment this if you only want full-word matches
        
        ' Loop through every matching instance
        Do While .Execute
            ' Change font color to red
            findRange.Font.Color = wdColorRed
            
            ' Add a comment to the found word
            ActiveDocument.Comments.Add _
                Range:=findRange, _
                Text:=commentText
            
            ' Move the range past the current match to avoid reprocessing it
            findRange.Collapse wdCollapseEnd
        Loop
    End With
    
    ' Clean up memory
    Set findRange = Nothing
    MsgBox "Done! All instances of '" & targetWord & "' have been processed.", vbInformation
End Sub

Key improvements and notes: #

• Using Range instead of Selection: This runs in the background without moving your cursor, making the macro smoother and more reliable.
• Adding comments: The ActiveDocument.Comments.Add method attaches a comment directly to the found word's range. You can tweak commentText to say whatever you need (like context about why the word is flagged).
• Avoiding infinite loops: wdFindStop tells the search to end when it reaches the document's end, instead of looping back to the start like wdFindContinue.
• Optional settings: Adjust MatchCase or MatchWholeWord based on whether you need exact case matches or only full words (e.g., not matching "test" in "testing").

How to use this: #

1. Press Alt + F11 to open the VBA Editor in Word.
2. Right-click your document in the Project Explorer > Insert > Module.
3. Paste the code above into the module.
4. Run the macro by pressing F5, or call it from another macro like this:

   Sub RunMySearch()
       WordSearcherWithComments("yourTargetWord")
   End Sub
   

That should do exactly what you need—each matching word will turn red and have a comment attached!

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