Как написать из excel формулу в word

[Святой Дьявол]

Доброго времени суток!
в excel открываю программно word, в котором в тексте есть текст вида #цифра#, далее это текст с помощью поиска нахожу и заменяю на нужные мне значения из excel, делаю это так:

 Set wa = CreateObject("Word.Application")
With wa.Selection.Find
    .ClearFormatting
    .Text = "#1#"
    .Replacement.Text = Worksheets("лист1").Range("E17").Value
    .Execute Replace:=2
    End With

иногда вместо значения нужно вставить формулу (поле EQ), и вот тут возникает проблема, может быть с этим кто сталкивался?

[Святой Дьявол]

решил свою проблему, может быть кому нибудь пригодится

 With wa.Selection.Find
    .ClearFormatting
    .Text = "#1#"
    While .Execute
        wa.ActiveDocument.Fields.Add wa.Selection.Range, wdFieldEmpty, "EQ 1+1=2", False
    Wend
End With

--------------------- добавлено модератором ------------------------
аналогичный способ используется и в этой программе:

Сделал программу для заполнения документов данными из таблицы Excel (из Excel в Word)

--------------------
Надстройка предназначена для формирования (подготовки) документов по шаблонам, с заполнением созданных файлов данными из текущей книги Excel.

В качестве шаблонов могут выступать следующие типы файлов:

• документы Word (расширения DOC, DOCX, DOCM)
• шаблоны Word (расширения DOT, DOTX, DOTM)
• книги Excel (расширения XLS, XLSX, XLSM, XLSB)
• шаблоны Excel (расширения XLT, XLTX, XLTM)
• текстовые документы (расширения TXT, DAT, XML и т.д.)

В качестве исходных данных для заполнения, используется открытый в Excel файл (с таблицей, содержащей строку заголовка)

Количество шаблонов документов не ограничено

ПРОГРАММА ПОДДЕРЖИВАЕТ ФОРМИРОВАНИЕ ДОКУМЕНТОВ В ФОРМАТЕ PDF
(создаётся файл DOC, и преобразуется в PDF средствами Word 2007 - 2010)
--------------------------------
В каких случаях вам может пригодиться эта надстройка:

• если у вас в таблице Excel хранится список контрагентов (с их реквизитами), и вы хотите нажатием одной кнопки формировать договоры, акты или коммерческие предложения для каждого из них
• если в вашей таблице Excel хранятся паспортные данные сотрудников, и вам необходимо быстро сформировать по шаблону приказы или прочие документы в формате Word, заполнив созданные документы данными сотрудников
• подготовить письма, уведомления, грамоты в формате PDF или Word, заполнив созданные файлы информацией с листа Excel
• и т.д. и т.п. - надстройку можно применять для создания любых документов на основе данных из Excel

--------------------------------

Скачать надстройку можно здесь:
http://excelvba.ru/programmes/FillDocuments