![]() |
#14 |
Участник
|
Как и обещал, другое решение, через переменные. В нём нам понадобится ещё один Automation
'Microsoft Word 11.0 Object Library'.Variable, назовём его WordVar. А функцию ReplaceText перепишем так: ReplaceText(Str : Text[1024];VName : Text[1024]) WordVar := WordDoc.Variables.Item(VName); IF Str <> '' THEN WordVar.Value := Str ELSE WordVar.Value := ' '; Всё, осталось только вставить в Ворде переменные в нужных местах. Делается так, Вставка->Поле, в Категории выбираем "Автоматизация", так быстрее искать, и выбираем DocVariable. Этой переменной даём имя, по которому мы будем к ней обращаться из Нава (VName). Вот и всё. Осталось только после того как будут заполнены все переменные, вызвать функцию WordDoc.Fields.Update; |
|