|
|
|
Передача данных через DDE в Word
|
|||
|---|---|---|---|
|
#18+
Подскажите, как передать какое-либо значение из таблицы в конкретное место WORDовского документа. Пытался с помощью функции DDEPoke() переслать в закладку - ничего не получилось. В ячейку Excel посылается нормально. Чего делаю не так? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 27.04.2004, 16:09 |
|
||
|
Передача данных через DDE в Word
|
|||
|---|---|---|---|
|
#18+
Создаешь документ потом Нужно создать переменную[-ые] документа В нужно место вставляем поле (курсор стоит на нужной позиции, из меню Вставка -> Поле.. -> 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 ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 27.04.2004, 19:21 |
|
||
|
Передача данных через DDE в Word
|
|||
|---|---|---|---|
|
#18+
Все получается. Спасибо. Но это OLE. А через DDE нельзя? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 28.04.2004, 10:42 |
|
||
|
Передача данных через DDE в Word
|
|||
|---|---|---|---|
|
#18+
Можно но это очень и очень криво. Т.к. ДДЕ намного старше АЛЁ и в нем необходимости нет. Т.к Але с случае Ворда заменяет его полность и выигрывает как по маштабируемости, так и по удобности. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 28.04.2004, 14:10 |
|
||
|
Передача данных через DDE в Word
|
|||
|---|---|---|---|
|
#18+
Насчет древности DDE я согласен. Однако если бы его не поддерживали, в ОС 2000 или Xp не вставили бы службу сетевого DDE и тем более он бы не поддерживался в офисе 2000 и офисе Xp. Возможно, что нужно в самом фоксе разобраться как реализована работа DDE с WORD. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 29.04.2004, 13:14 |
|
||
|
Передача данных через DDE в Word
|
|||
|---|---|---|---|
|
#18+
Подбросьте тогда уж идею, как вставить все записи из таблицы. Количество записей каждый раз может быть разным. Сколько переменных вставлять? Был бы очень признателен. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 29.04.2004, 16:24 |
|
||
|
Передача данных через DDE в Word
|
|||
|---|---|---|---|
|
#18+
Господин, я с сегодняшнего числа в отпуске :)) Сами понимаете ... ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 29.04.2004, 19:56 |
|
||
|
Передача данных через DDE в Word
|
|||
|---|---|---|---|
|
#18+
Посмотрите в FoxHelp раздел DDE function, там даже примеры использования есть ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 30.04.2004, 09:24 |
|
||
|
Передача данных через DDE в Word
|
|||
|---|---|---|---|
|
#18+
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" - закладка в документе ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 29.05.2006, 14:33 |
|
||
|
|

start [/forum/topic.php?fid=41&msg=32500697&tid=1591556]: |
0ms |
get settings: |
5ms |
get forum list: |
9ms |
check forum access: |
2ms |
check topic access: |
2ms |
track hit: |
150ms |
get topic data: |
7ms |
get forum data: |
2ms |
get page messages: |
25ms |
get tp. blocked users: |
1ms |
| others: | 210ms |
| total: | 413ms |

| 0 / 0 |
