Word VBA -查找其中一个单词(不是字符串中的所有单词)具有特定样式或格式的文本字符串

Sub FindBoldText()
    Dim doc As Document
    Dim rng As Range
    Dim foundRange As Range
    
    ' 设置要搜索的文档
    Set doc = ActiveDocument
    
    ' 从头开始搜索
    Set rng = doc.Content
    
    ' 查找加粗的文本
    With rng.Find
        .ClearFormatting
        .Font.Bold = True
        .Execute FindText:="", MatchCase:=False, WholeWord:=False, _
                 MatchWildcards:=False, Forward:=True, _
                 Format:=True, ReplaceWith:="", Replace:=wdReplaceNone, _
                 MatchKashida:=False, MatchDiacritics:=False, _
                 MatchAlefHamza:=False, MatchControl:=False, _
                 Read_only:=False, Visible:=True, _
                 Wrap:=wdFindContinue, FormatNames:=False, _
                 FormatTypes:=False, FormatValues:=False, _
                 FormatFonts:=True, FormatColors:=False, _
                 FormatParagraphs:=False, FormatStyles:=False, _
                 FormatBorders:=False, FormatShading:=False, _
                 FormatFields:=False, MatchByte:=False, _
                 SearchOptions:=0, SearchMode:=0, _
                 SearchDirection:=0, WrapAround:=False, _
                 SearchFromTop:=False, MatchPrefix:=False, _
                 MatchSuffix:=False, MatchPhrase:=False, _
                 MatchWildcards:=False, IgnoreSpace:=False, _
                 IgnorePunct:=False, IgnoreCase:=False, _
                 IgnoreStyle:=False, IgnoreFont:=False, _
                 IgnoreColor:=False, IgnoreAll:=False, _
                 FindWhat:="", ReplaceWith:="", _
                 Replace:=wdReplaceNone, MatchKashida:=False, _
                 MatchDiacritics:=False, MatchAlefHamza:=False, _
                 MatchControl:=False, Read_only:=False, _
                 Visible:=True, Wrap:=wdFindContinue, _
                 FormatNames:=False, FormatTypes:=False, _
                 FormatValues:=False, FormatFonts:=True, _
                 FormatColors:=False, FormatParagraphs:=False, _
                 FormatStyles:=False, FormatBorders:=False, _
                 FormatShading:=False, FormatFields:=False, _
                 MatchByte:=False, SearchOptions:=0, _
                 SearchMode:=0, SearchDirection:=0, _
                 WrapAround:=False, SearchFromTop:=False, _
                 MatchPrefix:=False, MatchSuffix:=False, _
                 MatchPhrase:=False, MatchWildcards:=False, _
                 IgnoreSpace:=False, IgnorePunct:=False, _
                 IgnoreCase:=False, IgnoreStyle:=False, _
                 IgnoreFont:=False, IgnoreColor:=False, _
                 IgnoreAll:=False, FindWhat:="", _
                 ReplaceWith:="", Replace:=wdReplaceNone
    
        Do While .Execute()
            Set foundRange = rng
            ' 处理找到的文本
            foundRange.Underline = wdUnderlineSingle
            foundRange.Font.Color = wdColorRed
        Loop
    End With
End Sub