Word VBA实现段落起始双词及连续段落匹配搜索需求

需求说明 #

已实现单个段落起始特定单词的搜索，现需扩展为满足：

• 段落开头为Word1或Word2
• 识别Word1/Word2开头的段落紧跟另一个Word1/Word2开头段落的连续场景（分开两次单独搜索无法覆盖该场景）

修改后的VBA代码 #

Sub Para_start()
    Dim searchText As String
    Dim targetWords As Variant
    Dim foundRange As Range
    Dim nextPara As Paragraph
    
    ' 定义要搜索的两个关键词
    targetWords = Array("Word1", "Word2")
    ' 构建通配符搜索条件：段落标记 + (Word1或Word2)
    searchText = "^p(" & Join(targetWords, "|") & ")"
    
    Set foundRange = ActiveDocument.Content
    With foundRange.Find
        .ClearFormatting
        .Text = searchText
        .Forward = True
        .Wrap = wdFindStop
        .MatchWildcards = True ' 启用通配符实现多关键词或逻辑
        
        Do While .Execute
            ' 定位到匹配的关键词所在段落
            Set foundRange = foundRange.Paragraphs(1).Range
            ' 提取匹配的关键词（去掉段落标记）
            Dim matchedWord As String
            matchedWord = Trim(Replace(foundRange.Text, Chr(13), ""))
            
            ' 1. 处理单个关键词匹配的情况：插入注释
            foundRange.Comments.Add foundRange, "找到关键词：" & matchedWord
            
            ' 2. 检查下一段是否也是目标关键词开头的连续场景
            If foundRange.Paragraphs(1).Index < ActiveDocument.Paragraphs.Count Then
                Set nextPara = foundRange.Paragraphs(1).Next
                Dim nextParaText As String
                nextParaText = Trim(Left(nextPara.Range.Text, Len(matchedWord)))
                
                ' 判断下一段开头是否是目标关键词之一
                If IsInArray(nextParaText, targetWords) Then
                    ' 在连续段落的位置插入注释
                    nextPara.Range.Comments.Add nextPara.Range, "连续段落：" & matchedWord & " → " & nextParaText
                End If
            End If
            
            ' 将搜索范围移到当前段落之后，避免重复匹配
            Set foundRange = foundRange.Next(wdParagraph, 1)
        Loop
    End With
End Sub

' 辅助函数：判断字符串是否在数组中
Function IsInArray(searchStr As String, arr As Variant) As Boolean
    Dim element As Variant
    For Each element In arr
        If element = searchStr Then
            IsInArray = True
            Exit Function
        End If
    Next element
    IsInArray = False
End Function

关键逻辑说明 #

• 多关键词搜索：启用MatchWildcards，用^p(Word1|Word2)作为搜索文本，一次性匹配段落开头为两个关键词的情况，避免分开搜索遗漏连续场景。
• 连续段落检测：找到匹配段落后，获取下一段落的文本开头，判断是否属于目标关键词数组，若是则标记连续场景。
• Range处理：每次匹配后将搜索范围移到当前段落之后，防止重复循环匹配同一段落。

内容的提问来源于stack exchange，提问作者hmm