Взаимодействие VFP и Word

Как вставить данные из БД в 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.

Автор: Каратаев
0

Автор публикации

не в сети 20 лет

Каратаев

0
Комментарии: 0Публикации: 4Регистрация: 04-12-2001
Оставить комментарий
Авторизация
*
*
Генерация пароля