如何遍历文档，同时查找样式“标题 1”和“标题 2”的文字

pxt2001

以下是遍历文档查找样式“标题 1”的文字的代码，只能针对一个样式“标题 1”查询，
能否同时查询“标题 1”和“标题 2”，如何修改代码？


With Selection
       .HomeKey unit:=wdStory, Extend:=wdMove     '光标移到文档首
       .Find.ClearFormatting
       .Find.Style = ActiveDocument.Styles("标题 1")  '设置查找文本的样式为(“标题1”)
End With
Do While Selection.Find.Execute(FindText:="*^13", MatchWildcards:=True, Format:=True)
    strTxt = Selection.Text '获取符合样式的文本
……

pxt2001

经过反复测试，Selection.find方法不能处理两种样式，除非循环两次。
只能遍历所有段落解决：

For Each aPara In ActiveDocument.Paragraphs
     If aPara.Style = "标题 1" then
         ……
     ElseIf aPara.Style = "标题 2" then
        ……
     end if
next

limonet

详见GIF图片。