Вывод данных в Word (перевод кода)

 папке с программой создайте папку shablon для хранения шаблонов и папку output для хранения полученных документов. Запустите Microsoft Word, введите произвольный текст документа с именами #tab#, #fam#, #imya#, #datar#. Сохраните файл в папку shablon. При этом в поле тип файла укажите Шаблоны документа, а имя файла Anketa. Для формирования анкеты нанесите на форму кнопку Button (Standard). В свойстве Caption укажите Анкета.
Для работы с COM сервером подключите в коде модуля формы файл comobj.
Для кнопки напишите код вида:
 
//пытаемся подключиться к серверу Word
try
    w:=getactiveoleobject('word.application');
//если подключение не удачно, то запускаем Word
except
    w:=createoleobject('word.application');
end;
 
/*ЗДЕСЬ СДЕЛАЛ 
//пытаемся подключиться к серверу Word
Variant w;
try
   {
    w=GetActiveOleObject("word.application");
    }
//если подключение не удачно, то запускаем Word
catch (...)
{
    w=CreateOleObject("word.application");
} */
 
 
 
//А ВОТ ДАЛЬШЕ НЕ ЗНАЮ КАК ПРАВИЛЬНО НАПИСАТЬ
//создаем новый документ на основе шаблона
w.documents.add(extractfilepath(application.ExeName)+'shablon\anketa.dot');
//заменяем имя #tab# на значение поля tab
w.selection.find.text:='#tab#';
 
w.selection.find.replacement.text:=ztable1.FieldByName('tab').Value;
 
w.selection.find.execute(replace:=2);
 
//заменяем имя #fam# на значение поля fam
 
w.selection.find.text:='#fam#';
 
w.selection.find.replacement.text:=ztable1.FieldByName('fam').Value;
 
w.selection.find.execute(replace:=2);
 
//заменяем имя #imya# на значение поля imya
 
w.selection.find.text:='#imya#';
 
w.selection.find.replacement.text:=ztable1.FieldByName('imya').Value;
 
w.selection.find.execute(replace:=2);
 
 
//заменяем имя #datar# на значение поля datar
 
w.selection.find.text:='#datar#';
 
w.selection.find.replacement.text:=ztable1.FieldByName('datar').Value;
 
w.selection.find.execute(replace:=2);
 
 
//сохраняем документ 
 
w.activedocument.saveas(filename:=extractfilepath(application.ExeName)+'output\anketa.doc');
 
//делаем видимым окно Word
 
w.visible:=true;
 
 
Полученный документ будет находится в папке output под именем anketa.doc.

    // пытаемся подключиться к серверу Word
    Variant w;
    try
    {
        w = GetActiveOleObject("word.application");
    }
    // если подключение не удачно, то запускаем Word
    catch (...)
    {
        w = CreateOleObject("word.application");
    }
 
    // создаем новый документ на основе шаблона
    w.OlePropertyGet("Documents").OleProcedure("Add",
        StringToOleStr(ExtractFilePath(Application->ExeName) + "shablon\\anketa.dot"));
 
    // заменяем имя #tab# на значение поля tab
    // берешь данные откуда тебе нужно, из БД или еще откуда
    String sReplace = "myTab";
    w.OlePropertyGet("Selection").OlePropertyGet("Find").OleProcedure("Execute",
        WideString("#tab#"), true, true, false, false, false, true, 1, false,
        WideString(sReplace), 2);
 
    // это все - по аналогии
 
    // заменяем имя #fam# на значение поля fam
    // заменяем имя #imya# на значение поля imya
    // заменяем имя #datar# на значение поля datar
 
    // сохраняем документ
    w.OlePropertyGet("ActiveDocument").OleProcedure("SaveAs",
        StringToOleStr(ExtractFilePath(Application->ExeName) + "output\\anketa.doc"));
 
    // делаем видимым окно Word
    w.OlePropertySet("Visible", true);