Есть шаблон документа word (.dot, при открытии вроде бы все работает так же, как и если бы просто обычный документ). Надо вставить в определенное место таблицу с некими данными (место отмечено $TABLE1$, т.е. надо заменить эту строку).
Как это сделать? Если просто заменить строку на другую строку, то вроде есть решения, а вот таблицу...
Код открытия и т.п. на всякий случай:
| Код |
const
DOC_TEMPLATE = 'template.dot';
wdFormatDocument = 0;
var
WordApp: OleVariant;
implementation
// Запускает экземпляр Word (и делает невидимым)
procedure RunWord;
begin
WordApp := CreateOleObject('Word.Application');
WordApp.Visible := False;;
end;
// Закрывает Word
procedure StopWord;
begin
WordApp.Quit;
WordApp := Unassigned;
end;
// Cохраняет активный документ Word
// возвращает false если не удалось сохранить
function SaveDoc(FileName: TFileName):Boolean;
begin
WordApp.ActiveDocument.SaveAs(FileName, wdFormatDocument);
if WordApp.ActiveDocument.Saved then
Result := True
else
Result := False;
end;
procedure MakeDoc(FileName: TFileName);
begin
RunWord;
WordApp.Document.Open(DOC_TEMPLATE);
// сохранение файла
if not SaveDoc(FileName) then
begin
Application.MessageBox('Не удалось сохранить документ.', 'Ошибка', MB_OK +
MB_ICONSTOP);
exit;
end;
StopWord;
end;
|
|
)