更改单词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