Взаимодействие VFP и Word
Вставлять текст в Word удобнее сразу с форматированием.
Я делаю это так:
*Это готовый prg-файл.
#define cr chr(13)
oword=create('word.application') && Создаем объект Word
oword.documents.add() && Добавляем чистый лист
oword.caption='Мой Word' && При желании - заголовок окна Word
oWordRef = GetObject('','word.basic') && Инструментарий доступа к объектам Word
***********
owordRef.insert(cr) && Вставляем строку
oWordRef.Font("Times New Roman",18) && Определяем параметры шрифта ...
oWordRef.Bold
oWordRef.Italic
oWordRef.CharColor(2)
owordRef.insert('Дата: '+dtoc(date())+cr) && Вставляем текст и т.д.
owordRef.insert(cr)
************
owordRef.insert(cr)
oWordRef.Font("Times New Roman",12)
oWordRef.Bold(0)
oWordRef.Italic(0)
oWordRef.SelectCurWord
oWordRef.CharColor(0)
owordRef.insert(repl('_',25))
owordRef.insert(cr)
***********
for i=1 to 10
owordRef.insert(cr)
oWordRef.Font("Times New Roman",14)
oWordRef.Bold
oWordRef.Italic(0)
oWordRef.CenterPara
oWordRef.Underline
oWordRef.CharColor(0)
owordRef.insert('Заголовок'+str(i))
owordRef.insert(cr)
oWordRef.Font("Times New Roman",14)
oWordRef.Bold(0)
oWordRef.Italic
oWordRef.JustifyPara
oWordRef.CharColor(0)
owordRef.insert('Текст'+str(i))
owordRef.insert(cr)
ENDFOR
owordRef.insert(cr)
oWordRef.Font("Times New Roman",12)
oWordRef.Bold(0)
oWordRef.Italic(0)
oWordRef.SelectCurWord
oWordRef.CharColor(6)
owordRef.insert('Конец файла '+repl('_',25))
owordRef.insert(cr)
END=oword.activedocument.Bookmarks("EndofDoc").select
oword.visible= .t.