如何在访问VBA中使用word对象进行查找/替换

Question

我正在使用Access 2003，我想从硬盘打开一个word文档并替换它中的一些文本并打印它（类似于邮件合并的动作，我有一个文档，我想添加一些来自当前记录的文本访问文档并打印出来）。 我找到了以下代码，但它没有更改word文档中的文本。

With pDoc.Content.Find
    .ClearFormatting
    .Text = "hi"
    .Replacement.ClearFormatting
    .Replacement.Text = "hello"
    .Execute Replace:=wdReplaceAll, Forward:=True, _
        Wrap:=wdFindContinue
End With

pDoc已设置为已打开的文档。

知道为什么这不会改变文字吗？ （它运行正常，但不会改为你好;单词文档没有改变）

Answer 1

引用我对这个问题的回答：  Excel VBA: How to use ListTemplates in Excel to control Word?

  

在Excel中，您需要添加对Word对象模型的引用：

     

在makro编辑器（Alt + F11）中，选择“工具”菜单并单击   “引用...”。单击“Microsoft Word对象”旁边的复选框   库。“单击”确定。“现在尝试再次运行宏。

     

那应该会让你快到那里。

可能缺少的只是对Word对象库的引用。