про Word

[Corleone]

Попробуй так:
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;

Zitat:

Zitat von alpt

Подскажите как сделать другой вещь, поменять кусок текста на другой, типа в шаблон вставляю актуальные значения

wdFind - автоматион офиса Find
вход FindWhat, ReplaceWith

wdFind.ExecuteOld(FindWhat,FlagTrue,FlagFalse,FlagFalse,FlagFalse,FlagFalse,Flag
False,Wrap,FlagFalse,ReplaceWith,Replace);