VBAの全見出し2の最初の文字の色を変更してください

Question

非常に大きなワード文書があり、見出し2の最初の文字を青に変更したいと思います。

私はすでに何かを持っています、今すぐ最初の文字の色を変更する必要があります。

これを行う方法？

Public Sub H2ChangeColor() 
    Dim p As Paragraph 

    With ActiveDocument 
     For Each p In .Paragraphs 
      If p.Style = "Heading 2" Then 
       p.Range.Font.ColorIndex = wdRed 
      End If 
     Next p 
    End With 
End Sub 

Answer 1

私はそれを解決したと思います。しかし、すべての見出しが機能しているわけではありませんが、問題は別の場所にあると思います。

Public Sub H2ChangeColor() 
    Dim p As Paragraph 

    With ActiveDocument 
    For Each p In .Paragraphs 
    If p.Style = "Heading 2" Then 
     p.Range.Font.ColorIndex = wdBlack 
     p.Range.Characters(1).Font.ColorIndex = wdBlue 
    End If 
    Next p 
    End With 
End Sub