range.findを使用して太字のテキストを検索すると、選択内容全体が太字であるかどうかがわかりません。

Question

range.findメソッドを使用して太字のテキストを抽出しようとしていますが、範囲全体が実際に太字である場合を除いて、すべてがpeachyです（あまり発生しません。

上記は、範囲全体が太字である場合でも、両方であっても開始時または右側で太字と一致します。レンジを調べる前に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