Поиск и форматирование по центру текста в 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 

Проблема была, что вы применили изменения (The With часть) только выбор. Если вы измените это на абзац, он будет работать.

Пожалуйста, измените деталь .Range.Font.Bold = True на .Range.Font.Bold = wdToggle, если вы хотите изменить полужирный шрифт, вместо того чтобы применять полужирный шрифт все время. WdToggle сделает полужирный текст не жирным и наоборот.