小编Ste*_*Dea的帖子

我已经成功地在 Excel 中编写了一些 VBA 代码，它打开一个现有的 Word 文档，根据 Excel 工作表中的信息查找并替换一个字符串。

由于源数据来自 Access 数据库，我想我会尝试将 VBA 代码移动到 Access 中并从那里运行它。

更新后的代码主要工作但奇怪的是，当我在访问中运行它时，查找和替换文本字符串的代码部分不起作用。

Sub CreateFormsPDF()

'   Creates Garda Vetting Forms NVB1 in Word and saves as PDF
    Dim WordApp As Object
    Dim WordDoc As Object
    Dim db As Database
    Dim rs As Recordset
    Dim Records As Integer
    Dim IDAnchor As String
    Dim ID As String
    Dim FilePath As String, SaveAsName As String

    FilePath = "N:\"

'   Start Word and create an object (late binding)
'   Document …