帮我写一段VBA代码选中WORD中的大纲级别为1级的标题

Sub SelectLevel1Headings() Dim doc As Document Set doc = ActiveDocument

Dim rng As Range
Set rng = doc.Range

With rng.Find
    .ClearFormatting
    .Style = ActiveDocument.Styles("Heading 1")
    .Text = ""
    .Format = True
    .Forward = True
    .Execute
End With

If rng.Find.Found = True Then
    rng.Select
Else
    MsgBox "No level 1 headings found."
End If

End Sub