Автоматизация MSWord

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

Вы можете воспользоваться любым интерфейсом, предлагаемым сервером автоматизации Word. Все реализованные интерфейсы вы можете увидеть при загрузке MSWORD8.OLB в Delphi, данный файл представляет собой библиотеку типов Word 7. Для исполнения VB в Word вы можете использовать свойство WordBasic Application. Следующий пример демонстрирует оба метода:

implementation

uses ComObj;

{$R *.DFM}

var
  V: OleVariant;

procedure TForm1.Button1Click(Sender: TObject);
begin
  V := CreateOleObject('Word.Application');
  V.ShowMe;
  V.WordBasic.FileNew;
  V.WordBasic.Insert('тест');
  V.Run('mymac');
  V.WordBasic.FileSave;
end;

end.

Here's the translation of the content into Russian:

Это программное обеспечение Delphi, которое автоматизирует Microsoft Word с помощью интерфейса COM. Код создает экземпляр приложения Word, отображает его, создает новый документ, вставляет текст, запускает макро и сохраняет документ.

Расшифровка каждого ряда:

1. uses ComObj; - Это строка включает библиотеку COM-объектов в программе.
2. {$R *.DFM} - Это строка говорит Delphi включить файл ресурсов (*.DFM), который содержит дизайн формы для этой программы.
3. var V: OleVariant; - Это строка объявляет переменную V типа OleVariant, которая является вариантом данных, который может хранить значения различных типов, включая COM-объекты.
4. procedure TForm1.Button1Click(Sender: TObject); - Это строка определяет процедуру, которая будет вызвана при клике кнопки на форме.
5. V := CreateOleObject('Word.Application'); - Это строка создает экземпляр приложения Word с помощью функции CreateOleObject, которая принимает имя COM-объекта в виде строки. В этом случае мы создаем экземпляр приложения Word.
6. V.ShowMe; - Это строка делает приложение Word видимым, вызвав метод ShowMe.
7. V.WordBasic.FileNew; - Это строка создает новый документ в приложении Word с помощью метода FileNew объекта WordBasic, который является интерфейсом к автоматизируемому интерфейсу Word.
8. V.WordBasic.Insert('тест'); - Это строка вставляет текст в документ с помощью метода Insert объекта WordBasic.
9. V.Run('mymac'); - Это строка запускает макро в приложении Word с помощью метода Run, передавая имя макро как аргумент.
10. V.WordBasic.FileSave; - Это строка сохраняет документ с помощью метода FileSave объекта WordBasic.

Альтернативное решение - использовать компонент TWordApplication в панели Component Palette Delphi, который предоставляет более удобный и легкий для использования интерфейс для автоматизации Word. Этот компонент можно опустить на форму и его свойства и методы можно задавать и вызывать напрямую, исключая необходимость явного создания COM-объектов и вызова методов.

Вот пример использования TWordApplication:

uses
  WordApp;

procedure TForm1.Button1Click(Sender: TObject);
begin
  WordApp := TWordApplication.Create(nil);
  try
    WordApp.Show;
    WordApp.Documents.Add;
    WordApp.Selection.Text := 'тест';
    WordApp.Run('mymac');
    WordApp.Save;
  finally
    WordApp.Free;
  end;
end;

Код создает экземпляр компонента TWordApplication, отображает его, добавляет новый документ, вставляет текст, запускает макро и сохраняет документ. Блок try-finally обеспечивает правильное освобождение компонента, когда он больше не нужен.

Автоматизация MS Word позволяет использовать различные интерфейсы, такие как сервер автоматизации Word и свойство WordBasic Application, для выполнения различных действий в программном коде на языке Delphi.

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

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