When using range.find to find bold text it won't find if the entire selection is bold!

Question

I\'m trying to extract bold text using the range.find method and all is peachy except if the entire range is actually bold (not likely to happen much, it\'s more of an edge

Answer 1

This should find any bold text:

Sub SearchBoldText()
    Dim rng As Range
    Set rng = ThisDocument.Range(0, 0)
    With rng.Find
        .ClearFormatting
        .Format = True
        .Font.Bold = True
        While .Execute
            rng.Select
            rng.Collapse direction:=wdCollapseEnd
        Wend
    End With
    Set rng = Nothing
End Sub