Попробуй так:
DocumName := 'c:\tmp.doc';
IF NOT CREATE(wdApp,TRUE) THEN ERROR('MS Word is not installed!');
IF NOT EXISTS(DocumName)
THEN ERROR('File not found!');
wdDoc := wdApp.Documents.Open2000(DocumName);
wdApp.Visible := TRUE;
wdApp.Activate;
Цитата:
Сообщение от
alpt
Подскажите как сделать другой вещь, поменять кусок текста на другой, типа в шаблон вставляю актуальные значения
wdFind - автоматион офиса Find
вход FindWhat, ReplaceWith
wdFind.ExecuteOld(FindWhat,FlagTrue,FlagFalse,FlagFalse,FlagFalse,FlagFalse,Flag
False,Wrap,FlagFalse,ReplaceWith,Replace);