Показать сообщение отдельно
Старый 26.10.2016, 12:25   #5  
smoyk is offline
smoyk
Участник
 
188 / 13 (1) ++
Регистрация: 20.04.2007
Я когда на форму зашел у вашего вопроса уже 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).