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