Классический пример использования WordBasic через OLE (Объектное связывание и вставка) в Delphi!
Вот разбивка кода:
MsWord := CreateOleObject('Word.Basic');:
Эта строка создает экземпляр объекта WordBasic, который является частью Microsoft Word. Функция CreateOleObject используется для создания COM-объекта из типовой библиотеки.
MsWord.FileNewDefault;:
Эта строка открывает новый документ в Word с использованием по умолчанию шаблона.
MsWord.TogglePortrait;:
Эта строка переключает ориентацию документа между портретным и ландшафтным направлением.
Вот альтернативное решение, использующее объект Word.Application вместо Word.Basic. Этот подход более современный и рекомендуется:
uses
Word;
var
WordApp: TWordApplication;
begin
WordApp := CreateOleObject('Word.Application');
try
WordApp.Visible := True; // Показать приложение Word
WordApp.Documents.Add; // Добавить новый документ
WordApp.ActiveDocument.PageSetup.Orientation := xlPortrait; // Установить ориентацию в портретном направлении
finally
WordApp.Free;
end;
end.
В этом коде мы используем компонент TWordApplication из единицы Word и создаем экземпляр его помощью CreateOleObject. Затем мы делаем приложение Word видимым, добавляем новый документ, устанавливаем ориентацию в портретном направлении и finally освобождаем объект.
Данная статья описывает способ использования WordBasic в программировании с помощью технологии OLE (Object Linking and Embedding) для автоматизации процессов в Microsoft Word.
