powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Передача данных через DDE в Word
9 сообщений из 9, страница 1 из 1
Передача данных через DDE в Word
    #32499064
Ефим
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Подскажите, как передать какое-либо значение из таблицы в конкретное место WORDовского документа. Пытался с помощью функции DDEPoke() переслать в закладку - ничего не получилось. В ячейку Excel посылается нормально. Чего делаю не так?
...
Рейтинг: 0 / 0
Передача данных через DDE в Word
    #32499409
Инк
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Создаешь документ
потом


Нужно создать переменную[-ые] документа
В нужно место вставляем поле (курсор стоит на нужной позиции, из меню Вставка -> Поле.. -> DocVariable -> "fio")
Сохраняем документ и выходим из Word

А потом в фоксе фантазируешь на эту тему

local lcDoc && имя файла
lcDoc='FileName.doc'

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(TableName.FieldName)
loDoc.Fields.Update

loWord.visible=.t.

*!* задержка, чтоб не вылететь из Word
=MessageBox('***'')

*!* выход без сохранения
loWord.quit(.F.)

endif

else

MessageBox('File not found'')

endif
...
Рейтинг: 0 / 0
Передача данных через DDE в Word
    #32499976
Ефим
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Все получается. Спасибо. Но это OLE. А через DDE нельзя?
...
Рейтинг: 0 / 0
Передача данных через DDE в Word
    #32500697
Инк
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Можно но это очень и очень криво. Т.к. ДДЕ намного старше АЛЁ и в нем необходимости нет. Т.к Але с случае Ворда заменяет его полность и выигрывает как по маштабируемости, так и по удобности.
...
Рейтинг: 0 / 0
Передача данных через DDE в Word
    #32502509
Alex Kise
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Насчет древности DDE я согласен. Однако если бы его не поддерживали, в ОС 2000 или Xp не вставили бы службу сетевого DDE и тем более он бы не поддерживался в офисе 2000 и офисе Xp.

Возможно, что нужно в самом фоксе разобраться как реализована работа DDE с WORD.
...
Рейтинг: 0 / 0
Передача данных через DDE в Word
    #32503096
Ефим
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Подбросьте тогда уж идею, как вставить все записи из таблицы. Количество записей каждый раз может быть разным. Сколько переменных вставлять? Был бы очень признателен.
...
Рейтинг: 0 / 0
Передача данных через DDE в Word
    #32503471
Alex Kise
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Господин, я с сегодняшнего числа в отпуске :))

Сами понимаете ...
...
Рейтинг: 0 / 0
Передача данных через DDE в Word
    #32503767
Посмотрите в FoxHelp раздел DDE function, там даже примеры использования есть
...
Рейтинг: 0 / 0
Период между сообщениями больше года.
Передача данных через DDE в Word
    #33758290
Pippa
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
channelNumber = Application.DDEInitiate( _
app:="WinWord", _
topic:="D:\TEMP\1\1.doc")
Set rangeToPoke = Worksheets("Contracts Details").Range("G188")
Application.DDEPoke channelNumber, "Label", rangeToPoke
Application.DDETerminate channelNumber

channelNumber - Документ для вставки
rangeToPoke - информация для передачи в Word
"Label" - закладка в документе
...
Рейтинг: 0 / 0
9 сообщений из 9, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Передача данных через DDE в Word
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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