Word для генерации отчетов
|
Работающая над программой группа питает отвращение к еженедельной отчетности о достигнутых результатах, поскольку она слишком явно свидетельствует об отсутствии таковых.
|
var
Word: Variant;
begin
Word := CreateOleObject('Word.Basic');
with Word do
begin {Затем следуют "чистые" команды WordBASIC...}
FileNew('Normal');
Insert('Это первая строчка'#13);
Insert('Это вторая строчка'#13);
FileSaveAs('c:\temp\test.txt', 3);
end;
end;
|
|
