|
|
#5 |
|
Участник
|
Я когда на форму зашел у вашего вопроса уже 2 недели прошло, я думал не актуально) Если еще зайдете, вот решение.
Что бы вывести текст в ворд надо поставить в нужное место закладку (мой способ, возможно и в произвольное место, но я таких способов не знаю). Закладку можно поставить 2мя способами: либо через вкладкуВставка -> Закладки, либо через вкладку Разработчик -> Формы предидущих версий -> Поле. Далее в коде для первого случая Код: word Automation 'Microsoft Word 14.0 Object Library'.Application
range Automation 'Microsoft Word 14.0 Object Library'.Range
document Automation 'Microsoft Word 14.0 Object Library'.Document
CREATE(word,TRUE)
document := word.Documents.Open('Имя файла');
bookmark := bookmarks.Item('Имя закладки');
range := bookmark.Range();
range.Text('Текст');
document.FormFields.Shaded:=FALSE;
word.Visible(TRUE);Код: WrdApp Automation 'Microsoft Word 14.0 Object Library'.Application
WrdDoc Automation 'Microsoft Word 14.0 Object Library'.Document
WrdFormFld Automation 'Microsoft Word 14.0 Object Library'.FormField
WrdDoc := WrdApp.Documents.Open2000('Имя файла');
AuxTextString := 'Имя поля';
WrdFormFld := WrdDoc.FormFields.Item(AuxTextString);
WrdFormFld.Result := 'Текст';
WrdDoc.FormFields.Shaded := FALSE;
WrdApp.Visible := TRUE;
WrdApp.Activate;ps У нас почему то часть одним способом сделана, часть другим) Сам не знаю почему... |
|
|
|
| За это сообщение автора поблагодарили: gl00mie (2), Sancho (1). | |
|
|
|