帮我写一段VBA代码选中WORD中的一级标题

Sub SelectLevel1Heading() '选中一级标题 Dim rng As Range Set rng = ActiveDocument.Range rng.Select rng.Collapse wdCollapseStart rng.Find.ClearFormatting rng.Find.Style = ActiveDocument.Styles("Heading 1") rng.Find.Execute If rng.Find.Found = True Then rng.Expand wdParagraph rng.Select Else MsgBox "未找到一级标题" End If End Sub