Suchen und formatieren zentrierten Text in Word. - Makro/VBA

Question

Ich versuche, ein Makro zu erstellen, das mein Worddokument durchsucht, um jeden Text zu finden, der zentriert ist, und diese Formatierung darauf anzuwenden.

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

Ich versuchte

Selection.Find.Style = wdAlignParagraphCenter 

Aber ich nehme an, es ist nicht so einfach ist.

Ich gab dann ist dies ein Schuss,

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 

Aber nein leider Glück.

Answer 1

versuchen Sie dies:

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 

Das Problem war, dass Sie die Änderungen (der With Teil) nur die Auswahl angewendet. Wenn Sie das in den Absatz ändern, funktioniert es.

Bitte ändern Sie den Teil .Range.Font.Bold = True zu .Range.Font.Bold = wdToggle, wenn Sie die fettgedruckte Schrift ändern möchten, anstatt die Schrift immer fett zu formatieren. Mit dem wdToggle wird fett formatierter Text nicht fett dargestellt und umgekehrt.