Change the color of first letter of all Heading 2 in word VBA
<p>I have a very large word-document and I want to change the first letter of all Heading 2 to blue. </p>

<p>I already have something, just now I need to change the color of the first letter. </p>

<p>How to do this?</p>

<pre><code>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
</code></pre>