Word에서 가운데 ​​맞춤 텍스트를 검색하고 서식을 지정합니다. - Macro/VBA

Question

내 단어 문서를 검색하여 가운데 맞춤 된 텍스트를 찾고이 서식을이 매크로에 적용하는 매크로를 만들려고합니다.

With Selection 
.Paragraphs.Alignment = wdAlignParagraphCenter 
.Font.Bold = wdToggle 
.Font.AllCaps = True 
End With 

나는

Selection.Find.Style = wdAlignParagraphCenter 

을 시도하지만 난 그게 그렇게 쉬운 일이 아니다 가정합니다.

나는 다음이 탄,

Dim p As Paragraph 

For Each p In ActiveDocument.Paragraphs 
    If p.Alignment = wdAlignParagraphCenter Then 
     With Selection 
      .Font.Bold = wdToggle 
      .Font.AllCaps = True 
     End With 

    End If 
Next p 

그러나 불행하게도 행운했다.

Answer 1

이 시도 :

Sub Bold_All_Caps() 
    Dim p As Paragraph 

    For Each p In ActiveDocument.Paragraphs 
     If p.Alignment = wdAlignParagraphCenter Then 
      With p 
       .Range.Font.Bold = True 
       .Range.Font.AllCaps = True 
      End With 

     End If 
    Next p 
End Sub 

문제가 있었다, 당신은합니다 (With 일부에게)만을 선택하여 변경 사항을 적용있다. 단락으로 변경하면 작동합니다.

항상 굵은 글꼴을 적용하는 대신 굵은 글꼴을 변경하려면 .Range.Font.Bold = True을 .Range.Font.Bold = wdToggle으로 변경하십시오. wdToggle은 굵은 텍스트를 굵게 표시하지 않으며 반대의 경우도 마찬가지입니다.