vba - 当使用 range.find 查找粗体文本时，如果整个选择都是粗体，则不会找到!

Question

我正在尝试使用 range.find 方法提取粗体文本，除非整个范围实际上是粗体(不太可能发生，这更多的是边缘条件)，否则一切都是桃色的。

With rngFindRange.Find
.ClearFormatting
.Font.Bold = True
Do
    .Execute

    If Not .Found Then
         Exit Do
    End If

    'do something with found text'

    Set rngFindRange = ActiveDocument.Range(rngFindRange.End + 1, Selection.End)

Loop

上面的内容匹配开头或结尾处的粗体文本，甚至两者都匹配，但当整个范围都是粗体时则不匹配。我想在搜索范围之前我可能必须测试 range.font.bold = true 。 stackoverflow 是怎么想的？

Answer 1

这应该找到任何粗体文本:

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