apanko: Работа с Word

[Blog bot]

Вот как надо работать с Microsoft Word из Dynamics NAV.
1. Создать шаблон (*.dot) в котором должны быть специальные поля:
Вставка, Поле, MergeField.

2. Использовать следующий код.
Переменные:
wdApp Automation 'Microsoft Word 11.0 Object Library'.Application
wdDoc Automation 'Microsoft Word 11.0 Object Library'.Document
wdRange Automation 'Microsoft Word 11.0 Object Library'.Range
template Text 250

CREATE(wdApp);
template := 'C:template.dot';
wdDoc := wdApp.Documents.Add(template);
wdApp.ActiveDocument.Fields.Update;
wdRange := wdApp.ActiveDocument.Fields.Item(1).Result;
wdRange.Text := 'Text';
wdRange.Bold := 1;
wdApp.Visible := TRUE;
wdApp.ActiveDocument.Fields.Unlink;


Функция Unlink позволяет преобразовать поля в обычный текст.

---------------------
Еще по теме Automation:
http://apanko.ru/showthread.php?t=66
http://apanko.ru/showthread.php?t=60
http://www.nav4u.ru/archives/33-agent-merlin/
http://www.nav4u.ru/archives/63-ne-udaetsy...ver-automation/
http://apanko.ru/showpost.php?p=68&postcount=1
http://apanko.ru/showthread.php?t=5447

Подробнее