Более сложный способ - вставка значение в любое местоположение в документе Word.
1. Открываем Word, набиваем письмо.
2. Создаем новый макрос и запускаем его (нужно создать переменную[-ые] документа, как их сделать руками я не знаю)
1.
2.
Sub Macro1()
ActiveDocument.Variables.Add "fio"
End Sub
3. В нужно место вставляем поле (из меню Вставка -> Поле..)
4. Сохраняем документ и выходим из Word
5. Код в фоксе примерно такой:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
local lcDoc && имя файла
lcDoc='FileName.doc'
if file(lcDoc)
local loWord
local loDoc
loWord=createobject('word.application')
if type('loWord')='O'
loDoc=loWord.Documents.Open(fullpath(lcDoc))
*!* присвоение значения переменной документа Word
*!* со строками нулевой длины ('') кажись проблемы
loDoc.Variables.Item('fio').Value=alltrim(TableName.FieldName)
loDoc.Fields.Update
loWord.visible=.t.
*!* задержка, чтоб не вылететь из Word
=MessageBox('***'')
*!* выход без сохранения
loWord.quit(.F.)
endif
else
=MessageBox('File not found'')
endif
