MS Access VBA：Word文档找到文本后如何选中后续所有内容

核心思路很直接：用Range.Find定位到目标文本后，把Range的起始位置移到找到的文本末尾，再将Range扩展到文档最后，就能直接获取后续所有内容。

完整VBA代码示例 #

Sub ExtractTextAfterTarget()
    Dim wordApp As Object
    Dim wordDoc As Object
    Dim searchRange As Object
    Dim targetText As String
    Dim extractedText As String
    
    ' 定义要搜索的目标文本
    targetText = "你要找的指定文本"
    
    ' 后台启动Word应用（后期绑定，无需提前引用库）
    Set wordApp = CreateObject("Word.Application")
    wordApp.Visible = False ' 不显示Word窗口，静默操作
    
    ' 打开目标Word文档
    Set wordDoc = wordApp.Documents.Open("C:\你的文件路径\目标文档.docx")
    
    ' 设置搜索范围为整个文档内容
    Set searchRange = wordDoc.Content
    
    ' 执行查找操作
    With searchRange.Find
        .Text = targetText
        .MatchCase = False ' 不区分大小写，可按需修改
        .MatchWholeWord = True ' 匹配整词，可按需修改
        .Execute
    End With
    
    ' 判断是否找到目标文本
    If searchRange.Find.Found Then
        ' 将Range起始点移到目标文本的结束位置
        searchRange.Start = searchRange.End
        ' 把Range终点扩展到文档末尾
        searchRange.End = wordDoc.Content.End
        
        ' 提取后续所有内容
        extractedText = searchRange.Text
        
        ' 这里可将extractedText存入Access表，或做分词、统计等分析
        Debug.Print extractedText ' 先在立即窗口查看结果
    Else
        MsgBox "未找到指定文本"
    End If
    
    ' 清理资源
    wordDoc.Close SaveChanges:=False
    wordApp.Quit
    Set searchRange = Nothing
    Set wordDoc = Nothing
    Set wordApp = Nothing
End Sub

关键说明 #

• 若要获得代码提示，可在Access的VBA编辑器中提前引用Microsoft Word xx.x Object Library，把代码里的Object换成具体的Word对象类型（比如Word.Application、Word.Document）。
• 可根据需求调整Find的参数，比如MatchCase、MatchWholeWord，适配不同的搜索场景。
• 提取到的extractedText可直接写入Access数据表字段，或开展后续的文本分析操作。

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