需求：编写VBA代码实现PDF中指定文本后至逗号的内容复制

需求说明 #

从PDF转换后的Word文档中，搜索文本“Specific Requirements”，复制该文本之后到第一个逗号前的内容（字符长度不固定）。

修改后的完整代码 #

Sub CopyToComma()
    Dim findRange As Range
    Dim commaPos As Long
    
    Set findRange = ActiveDocument.Range
    With findRange.Find
        .ClearFormatting
        .Replacement.ClearFormatting
        .Format = False
        .Forward = True
        .Wrap = wdFindContinue
        .MatchWildcards = False
        .Text = "Specific Requirements"
        .Execute
    End With
    
    If findRange.Find.Found Then
        ' 从匹配文本的结束位置开始查找逗号
        commaPos = InStr(findRange.End, ActiveDocument.Content.Text, ",")
        If commaPos > 0 Then
            ' 复制从匹配结束位置到逗号前的内容
            ActiveDocument.Range(Start:=findRange.End, End:=commaPos - 1).Copy
        End If
    End If
End Sub

关键修改说明 #

• 新增变量findRange存储查找范围，避免直接操作ActiveDocument.Range导致的范围混乱
• 用InStr函数从匹配文本的结束位置开始定位第一个逗号的位置
• 复制范围的起始点设为匹配文本的结束位置，结束点设为逗号位置减1，确保不包含逗号本身
• 增加逗号存在性判断，避免找不到逗号时触发错误

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