Word 파일에서 특정 텍스트 추출

Question

글꼴 크기가 14와 18이고 문서 크기가 1500 페이지 인 Word 문서가 있습니다.

글꼴 14와 글꼴 18을 구체적으로 변경해야하므로 검색을 한 후에 VBA를 통해이 작업을 쉽게 수행 할 수있었습니다.

내가 전에 VBA를 해본 적이했기 때문에, 나는이 시도 :

Sub tryIt() 

If Selection.Font.Size = 18 Then 
MsgBox ("test") 

End If 
End Sub 

을하지만 그것은 작동하지 않습니다 ... MSGBOX는()가 제대로 텍스트를 인식하면 바로 볼 수 있었다.

Word 문서에서 글꼴 크기 14와 18을 분리/차별화하고 VB 스크립트에서이를 구현하려면 어떻게해야합니까?

찾기/바꾸기를 수행 할 수 있도록 14 및 18 크기의 텍스트를 추출하거나 검색 할 수있는 방법이 있습니까?

Answer 1

코드를 사용하여 작동하지 않는 내용을 말하지 않았습니다.

Sub tryIt() 
    Dim findRange As Range 
    Set findRange = ActiveDocument.Range 
    findRange.Find.ClearFormatting 
    findRange.Find.Font.Size = 18 

    Do While findRange.Find.Execute(findtext:="") = True 
     findRange.Select 
     'Do something here 

     DoEvents 
    Loop 
End Sub 

Answer 2

그것은 당신이 정확히 계신 말할 조금 까다로운하지만 다음 매크로 텍스트 "경찰"로 글꼴 크기 (14)에 연속하는 모든 텍스트를 대체합니다 그러나, 우선이보십시오.

Sub TryIt() 
With Selection.Find 
    .ClearFormatting 
    .Font.Size = 14 
    .Replacement.ClearFormatting 
    .Text = "" 
    .Replacement.Text = "fuzz" 
    .Wrap = wdFindContinue 
    .Format = True 
    .Execute Replace:=wdReplaceAll 
End With 
End Sub 

본인이 아닌 경우, 어떤 의미인지 조금 설명해야 할 수도 있습니다.