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

Delphi , Технологии , OLE Automation MSOffice

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;

Here's the translation of the text into Russian:

Это программный код на языке Delphi, который использует WordBasic для генерации отчетного файла с именем "test.txt" в директории "C:\Temp".

Программа начинается с создания экземпляра WordBasic с помощью функции CreateOleObject и присваивания его переменной Word. Затем она открывает новый документ с помощью команды FileNew, вставляет две строки текста в документ с помощью команды Insert, и finally сохраняет документ как файл текста с помощью команды FileSaveAs.

Вот улучшенная версия кода:

var
  Word: Variant;
begin
  Word := CreateOleObject('Word.Application');
  Word.Visible := False; // Установите в True, если вы хотите отображать окно Word

  with Word do
  begin
    Documents.Open; // Откройте новый документ
    Selection.TypeText := true; // Установите тип текста в простой текст
    Selection.Text := 'Это первая строка'#13 + 'Это вторая строка'; // Вставьте текст
    SaveAs('c:\temp\test.txt', 3); // Сохраните как файл текста с кодировкой CP-1251
  end;
end;

Я сделал следующие изменения:

• Создал экземпляр Word.Application вместо Word.Basic, что более распространено и гибко.
• Установил свойство Visible в False, чтобы окно Word не появилось при запуске программы. Вы можете установить его в True, если хотите отображать окно Word.
• Использовал команду Documents.Open для открытия нового документа вместо FileNew.
• Использовал команду Selection.TypeText := true для установки типа текста в простой текст перед вставкой текста.
• Использовал команду SaveAs вместо FileSaveAs, что более гибко и позволяет указать дополнительные параметры, такие как формат файла и кодировка.

Обратите внимание, что этот код предполагает, что приложение Word установленно на системе и доступно. Вам может потребоваться добавление обработки ошибок для случаев, когда приложение Word не доступно или не запускается.

В статье рассматривается использование Word для автоматизации процесса генерации отчетов, представленное в виде примера программирования на языке Pascal.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: OLE Automation MSOffice ::