Word для генерации отчетов

{codecitation class=»brush: pascal; gutter: false;» width=»600px»}

Работающая над программой группа питает отвращение к еженедельной отчетности о достигнутых результатах, поскольку она слишком явно свидетельствует об отсутствии таковых.

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;

{/codecitation}

Добавить комментарий