使用VBA在MS Word中使用通配符搜索循环获取标题信息

Sub SearchTitles()
    Dim doc As Document
    Dim rng As Range
    Dim title As String
    
    ' 设置要搜索的标题通配符
    Dim wildcard As String
    wildcard = "标题*"
    
    ' 获取当前活动文档
    Set doc = ActiveDocument
    
    ' 设置搜索范围为整个文档
    Set rng = doc.Content
    
    ' 开始搜索循环
    Do While rng.Find.Execute(wildcard, MatchWildcards:=True)
        ' 获取找到的标题
        title = rng.Text
        
        ' 在这里可以对标题进行进一步处理，比如输出到控制台或保存到数组中
        
        ' 移动到下一个搜索位置
        rng.Collapse wdCollapseEnd
    Loop
    
    ' 清理对象
    Set rng = Nothing
    Set doc = Nothing
End Sub