VBA Access - 在 Word 文档中查找和替换文本

使用VBA Access可以轻松地在Word文档中查找和替换文本。这种功能非常实用，可以帮助用户快速批量修改文档内容。下面将介绍如何使用VBA Access编写代码实现这一功能，并提供一个案例代码供参考。

vba
Sub FindAndReplaceText()
    Dim wdApp As Object
    Dim wdDoc As Object
    
    ' 创建Word应用程序对象
    Set wdApp = CreateObject("Word.Application")
    
    ' 打开指定的Word文档
    Set wdDoc = wdApp.Documents.Open("C:\Path\To\Your\Document.docx")
    
    ' 设置查找和替换的文本
    wdDoc.Content.Find.Execute FindText:="要查找的文本", ReplaceWith:="要替换的文本", _
        Replace:=2, Forward:=True, Wrap:=1
    
    ' 保存并关闭Word文档
    wdDoc.Save
    wdDoc.Close
    
    ' 退出Word应用程序
    wdApp.Quit
    
    ' 释放对象变量
    Set wdDoc = Nothing
    Set wdApp = Nothing
End Sub

vba
Sub ReplaceHyperlinks()
    Dim wdApp As Object
    Dim wdDoc As Object
    Dim hyperlink As Object
    
    ' 创建Word应用程序对象
    Set wdApp = CreateObject("Word.Application")
    
    ' 打开指定的Word文档
    Set wdDoc = wdApp.Documents.Open("C:\Path\To\Your\Document.docx")
    
    ' 循环遍历文档中的所有链接
    For Each hyperlink In wdDoc.Hyperlinks
        ' 替换链接的显示文本
        hyperlink.Range.Text = "替换后的文本"
    Next hyperlink
    
    ' 保存并关闭Word文档
    wdDoc.Save
    wdDoc.Close
    
    ' 退出Word应用程序
    wdApp.Quit
    
    ' 释放对象变量
    Set hyperlink = Nothing
    Set wdDoc = Nothing
    Set wdApp = Nothing
End Sub