Как сделать поиск / замену, используя слово объект в доступе VBA

Question

Я работаю с Access 2003, и я хочу открыть документ 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: Как использовать ListTemplates в Excel для управления Word?

В Excel необходимо добавить ссылку на Wordмодель объекта:

В редакторе макросов (Alt + F11) выберите меню «Инструменты» и нажмите «Ссылки ...».Установите флажок рядом с «Библиотека объектов Microsoft Word».Нажмите «ОК».Теперь попробуйте запустить макрос еще раз.

Это должно привести вас почти к цели.

Может быть, все, что не хватает, - это ссылка на библиотеку объектов Word.