powered by simpleCommunicator - 2.0.53     © 2025 Programmizd 02
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Шаблон Ворда в цикле
5 сообщений из 5, страница 1 из 1
Шаблон Ворда в цикле
    #37157948
sqlnew
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Туплю...

Есть простенький шаблон с выводом 2-х переменных.
Требуется по тычку мыши на любой строке грида вывести в Ворд фамилию и адрес для всех записей,
для которых поле PR="+".
Как-то не задумываясь, сделал так:


GO TOP
DO WHILE EOF()=.f.
IF pr="+"

LOCAL loWord, loDoc
loWord = CREATEOBJECT( 'WORD.APPLICATION')
loDoc=m.loWord.Documents.Add('c:\pismo.dot')
m.loDoc.Fields(1).Result.text=adres
m.loDoc.Fields(2).Result.text=fio
m.loWord.Visible = .T.

endif
SKIP
ENDDO

И все работает, т.к. в таблице всегда есть всего от 1 до 3-4 удовлетворяющих записей.
Но, по-моему, бредовый вариант по нескольку Вордов грузить. Тем более, если нужных записей будет больше 10.
Есть ли какая альтернатива, чтобы в одну копию Ворда постранично загрузился шаблон?
...
Рейтинг: 0 / 0
Шаблон Ворда в цикле
    #37158013
Фотография ПЕНСИОНЕРКА
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
sqlnew,

попробуйте

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
GO TOP
k= 0 
DO WHILE EOF()=.f.
IF pr="+"
k=k+ 1 
LOCAL loWord, loDoc
if k= 1 
loWord = CREATEOBJECT( 'WORD.APPLICATION')
endif
loDoc=m.loWord.Documents.Add('c:\pismo.dot')
m.loDoc.Fields( 1 ).Result.text=adres
m.loDoc.Fields( 2 ).Result.text=fio
m.loWord.Visible = .T.
loDoc.saveas "c:\" & k & ".doc"
endif
SKIP
ENDDO

или нечто похожее
нет фохпро для пробы
...
Рейтинг: 0 / 0
Шаблон Ворда в цикле
    #37158044
sqlnew
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Не срослось... :-(
...
Рейтинг: 0 / 0
Шаблон Ворда в цикле
    #37158046
прошелмимо
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
sqlnewТуплю...

Есть ли какая альтернатива, чтобы в одну копию Ворда постранично загрузился шаблон?

используйте фишку ворда "слияние"

http://wordexpert.ru/page/word-97-sliyanie-dokumentov-kak-odin-iz-sposob-uprostit-svoyu-rabotu
...
Рейтинг: 0 / 0
Шаблон Ворда в цикле
    #37158068
sqlnew
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Во-во. Вроде то, что надо. Спасибо.
...
Рейтинг: 0 / 0
5 сообщений из 5, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Шаблон Ворда в цикле
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]