Вывод данных в Word (перевод кода) - C/C++ - Ответ 7686116

 папке с программой создайте папку 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.