ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / PowerBuilder [игнор отключен] [закрыт для гостей] / Экспорт данных в шаблон Word
11 сообщений из 11, страница 1 из 1
Экспорт данных в шаблон Word
    #33205628
Akel
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Akel
Гость
Возник такой вопрос по поводу экспорта данных в шаблон Word , в VFP я делаю следующим образом :

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
local lcDoc,path &&  имя файла и переменная пути
path=sys( 5 )+sys( 2003 )
lcDoc=path+'\template\kvit.dot'
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(client.fio)
		loDoc.Variables.Item('adr').Value=alltrim(client.adresps)
		loDoc.Variables.Item('lic').Value=alltrim(organiz.licacc)
		loDoc.Variables.Item('org').Value=alltrim(organiz.nameorg)
		loDoc.Variables.Item('acc').Value=alltrim(organiz.orgacc)
		loDoc.Variables.Item('inn').Value=alltrim(organiz.inn)
loDoc.Fields.Update
		loWord.visible=.t.
     
	endif
else
MessageBox('Шаблон не найден')
Endif

и все расставляеться как надо.
Возможно ли что-нибудь подобное в PowerBulder , если можно кусочек кода.
...
Рейтинг: 0 / 0
08.08.2005, 12:49
| Ответить | Цитировать | Написать  
Экспорт данных в шаблон Word
    #33205949
Akel
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Akel
Гость
Печально...
Так приведу пример, что в Word происходит в Коды/значения полей . Там есть следующие поля:
{DOCVARIABLE fio \* MERGEFORMAT } в замен его подстанавливается client.fio
{DOCVARIABLE adr \* MERGEFORMAT } в замен его подстанавливается client.adresps
{DOCVARIABLE lic \* MERGEFORMAT } в замен его подстанавливается client.licacc
и т.д.

Каким образом я могу присвоить этим полям значение, через PowerBuilder ?
Очень надо...
...
Рейтинг: 0 / 0
08.08.2005, 15:28
| Ответить | Цитировать | Написать  
Экспорт данных в шаблон Word
    #33206987
Akel
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Akel
Гость
Значит ничего подобного нет?
Кхм..... неохото мне через закладки работать... А вообще какие еще способы в PB есть для работы с Word. Дайте ссылочку?!
...
Рейтинг: 0 / 0
09.08.2005, 15:01
| Ответить | Цитировать | Написать  
Экспорт данных в шаблон Word
    #33207030
Dim2000
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dim2000
Участник
Akel wrote:

> Значит ничего подобного нет?

Как ты себе это представляешь? Скорее, нет желающих переписывать за тебя
с Фокса на PB.

> А вообще какие еще
> способы в PB есть для работы с Word.

Word - он везде одинаковый ;).
Posted via ActualForum NNTP Server 1.2
...
Рейтинг: 0 / 0
09.08.2005, 15:15
| Ответить | Цитировать | Написать  
Экспорт данных в шаблон Word
    #33207087
Akel
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Akel
Гость
Dim2000
Akel wrote:

> Значит ничего подобного нет?

Как ты себе это представляешь? Скорее, нет желающих переписывать за тебя
с Фокса на PB.


Я все прекрасно понимаю, я бы рад и сам переписать с Фокса на РВ, но что то никак не получаеться поэтому прошу руку помощи. А то что Word одинаков, знаю, только обращение к нему немного по разному проходит в разных языках. Обращений к Word знаю всего два это как в Фоксе через коды/значения полей и через закладки, но хотелось бы как в Фоксе, так гораздо удобнее и меньше писанины.
Но если никто не может помочь, значит придеться как то самому пытаться... но опять же пока не одна попытка успехом не увенчалась.
...
Рейтинг: 0 / 0
09.08.2005, 15:36
| Ответить | Цитировать | Написать  
Экспорт данных в шаблон Word
    #33207104
Akel
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Akel
Гость
Кстати у меня PB 6,5 может он прост сам по себе не может работать с Variable?
...
Рейтинг: 0 / 0
09.08.2005, 15:41
| Ответить | Цитировать | Написать  
Экспорт данных в шаблон Word
    #33207178
Dim2000
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dim2000
Участник
Akel wrote:
> Кстати у меня PB 6,5 может он прост сам по себе не может работать с
> Variable?

Да всё он умеет... это ты его готовить не умеешь .

----------------------------------------------------------
OleObject oWord

oWord = CREATE oleobject
if oWord.ConnectToNewObject("Word.Application") <> 0 then
MessageBox('Error', 'Cannot start Word', Stopsign!)
Return
end if

oWord.Documents.Open('c:\Test.doc')
oWord.Visible = TRUE

oWord.ActiveDocument.Variables[1].Value = 'Dim2000'
oWord.ActiveDocument.Variables.Item("fio").Value = 'Dim2000'

oWord.DisconnectObject()
DESTROY oWord
----------------------------------------------------------
Posted via ActualForum NNTP Server 1.2
...
Рейтинг: 0 / 0
09.08.2005, 16:03
| Ответить | Цитировать | Написать  
Экспорт данных в шаблон Word
    #33207618
Akel
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Akel
Гость
Огромное спасибо=)
...
Рейтинг: 0 / 0
09.08.2005, 17:42
| Ответить | Цитировать | Написать  
Экспорт данных в шаблон Word
    #33207676
Akel
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Akel
Гость
Кхм...извини конечно, но может подскажешь еще одну штуку? Word открывается, но значение поля меняется поля после того как я навожу курсор на поле и правой кнопкой вызываю обновить поле. До этого там предыдущее значение.
Пытался сделать следующим образом, но не сработало:
oWord.ActiveDocument.Update
...
Рейтинг: 0 / 0
09.08.2005, 18:05
| Ответить | Цитировать | Написать  
Экспорт данных в шаблон Word
    #33207708
Dim2000
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dim2000
Участник
Akel wrote:

> Кхм...извини конечно, но может подскажешь еще одну штуку? Word
> открывается, но значение поля меняется поля после того как я навожу
> курсор на поле и правой кнопкой вызываю обновить поле. До этого там
> предыдущее значение.
> Пытался сделать следующим образом, но не сработало:
> oWord.ActiveDocument.Update

ХЗ, я ни с переменными, ни с полями вообще не работаю... А если
попробовать oWord.ActiveDocument.Fields.Update ?
Posted via ActualForum NNTP Server 1.2
...
Рейтинг: 0 / 0
09.08.2005, 18:18
| Ответить | Цитировать | Написать  
Экспорт данных в шаблон Word
    #33207719
Akel
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Akel
Гость
Сработало=))) Блин ты меня так выручил=)))) Огромное спасибо!
...
Рейтинг: 0 / 0
09.08.2005, 18:22
| Ответить | Цитировать | Написать  
11 сообщений из 11, страница 1 из 1
Форумы / PowerBuilder [игнор отключен] [закрыт для гостей] / Экспорт данных в шаблон Word
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=15&msg=33207708&tid=1338201]:
 0ms
get settings:
 11ms
get forum list:
 14ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 44ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 55ms
get tp. blocked users:
 1ms
others: 206ms
total:  352ms
созд. / загр.: 352ms
x
x
Закрыть


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