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は太字を太字にしません。