更改word VBA中所有标题2的第一个字母的颜色

Sub ChangeTitle2Color()
    Dim doc As Document
    Dim para As Paragraph
    Dim rng As Range
    
    Set doc = ActiveDocument
    
    For Each para In doc.Paragraphs
        If para.Style = "Heading 2" Then
            Set rng = para.Range
            rng.Collapse wdCollapseStart
            rng.MoveEnd wdWord, 1 '选择第一个字母
            rng.Font.Color = RGB(255, 0, 0) '将字体颜色设置为红色
        End If
    Next para
End Sub