Должно помочь. Писал в дельфях, стоит офис хр
var
FileName,oldStr1,newStr1,replace : OleVariant;
i: Integer;
begin
WordApplication1.Connect;
FileName:='D:\Шаблон.DOC';
WordApplication1.Documents.Open(FileName,
EmptyParam,EmptyParam,EmptyParam,
EmptyParam,EmptyParam,EmptyParam,
EmptyParam,EmptyParam,EmptyParam,
EmptyParam,EmptyParam);
i := 1;
ADOQuery1.First;
while not ADOQuery1.Eof do
begin
WordDocument1.ConnectTo(WordApplication1.ActiveDocument);
replace:=1;
oldStr1:='Строка которую нужно заменить';
newStr1:=ADOQuery1.fieldByName('FIO');
WordDocument1.Range.Find.Execute(oldStr1,EmptyParam,EmptyParam, EmptyParam,EmptyParam,EmptyParam,EmptyParam,
EmptyParam,EmptyParam,newStr1,replace,EmptyParam,EmptyParam,EmptyParam,EmptyParam);
// ...
// заменяешь все необходимые переменные
FileName := 'D:\Шаблон'+IntToStr(i)+'.DOC';
i := i + 1;
WordDocument1.SaveAs(FileName,EmptyParam,EmptyParam);
WordDocument1.Disconnect;
ADOQuery1.Next;
end;
WordDocument1.Disconnect;
end;