Взаимодействие VFP и Word ( Каратаев (guwp.yandex.ru))
Назначение
Как вставить данные из БД в Word с форматированием текста.


Взаимодействие 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.


Каратаев. GUWP@YANDEX.RU