На этом шаге мы рассмотрим простейшие операции с объектом WordBasic.
Загрузка объекта Word.Basic для доступа к его процедурам и функциям производится посредством вызова
функции CreateOleObject (смотри пример кода предыдущего шага). После этой
процедуры приложение Word будет загружено в память, и мы можем работать с ним и с документами.
В начале работы разберемся, как сделать видимым окно приложения Word или убрать его с экрана монитора.
В фоновом режиме документы обрабатываются значительно быстрее, а после создания или редактирования можно
отобразить готовый документ. При работе с Word.Application данное действие производилось установкой
свойства Visible объекта Application в значение True или False. Кроме того,
считывая значение этого свойства, мы могли определить, в каком (видимом/невидимом) состоянии находится окно
приложения. В WordBasic для этой цели применяется несколько процедур. Рассмотрим следующие процедуры.
procedure TForm1.Button2Click(Sender: TObject); //Отображение окна приложения Word begin WB.AppShow; end; procedure TForm1.Button3Click(Sender: TObject); //Скрытие окна приложения Word begin WB.AppHide; end;
Первая процедура делает видимым окно приложения Word на экране компьютера. Она аналогична оператору
W.Application.Visible=True; в Visual Basic. Вторая процедура убирает с экрана (скрывает) окно приложения Word.
В набор функций, изменяющих визуализацию главного окна Word, входят также функции, позволяющие
изменять размеры и положение окна на рабочем столе:
- AppSize(width, height: integer) - изменяет размеры главного окна приложения Word,
- AppWindowHeight(height: integer) - изменяет только высоту главного окна приложения Word,
- AppWindowWidth(width: integer) - изменяет только его ширину,
- AppWindowPosLeft(horizpos: integer) - изменяет только отступ от левой границы рабочего стола для главного окна приложения Word,
- AppWindowPosTop(vertpos: integer) - изменяет только отступ от верхней границы рабочего стола для главного окна приложения Word.
Приведем текст процедуры, где используются некоторые из перечисленных функций.
procedure TForm1.Button4Click(Sender: TObject); //Изменение размеров и положения главного окна приложения Word var width,height,horizpos,vertpos:integer; begin width:=300; height:=200; WB.AppSize(width,height); horizpos:=10; vertpos:=10; WB.AppWindowPosLeft(horizpos); WB.AppWindowPosTop(vertpos); end;
В результате выполнения данной процедуры окно переместится в положение с новыми координатами, а размеры окна
будут установлены в новые значения (рисунок 1).
Вот полный текст приложения.
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComObj; type TForm1 = class(TForm) Button1: TButton; Button2: TButton; Button3: TButton; Button4: TButton; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button3Click(Sender: TObject); procedure Button4Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation var WB:variant; {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); //Создание объекта WordBasic begin WB:=CreateOleObject('Word.Basic'); end; procedure TForm1.Button2Click(Sender: TObject); //Отображение окна приложения Word begin WB.AppShow; end; procedure TForm1.Button3Click(Sender: TObject); //Скрытие окна приложения Word begin WB.AppHide; end; procedure TForm1.Button4Click(Sender: TObject); //Изменение размеров и положения главного окна приложения Word var width,height,horizpos,vertpos:integer; begin width:=300; height:=200; WB.AppSize(width,height); horizpos:=10; vertpos:=10; WB.AppWindowPosLeft(horizpos); WB.AppWindowPosTop(vertpos); end; end.
Текст этого приложения можно взять здесь (5,4 Кб).
Результат работы приложения изображен на рисунке 1:
Рис.1. Результат работы приложения
Видим, что с помощью команд WordBasic можно добиться такого же результата, как и в случае применения
Visual Basic для Word.Application. Но наша цель - не только манипуляции с главным окном приложения Word,
а гораздо шире - создание и редактирование простых документов в формате MS Word. Для решения такой
задачи нужно научиться создавать новый документ, открывать существующий документ, вставлять, удалять и
копировать текст и выполнять другие действия, связанные с созданием и редактированием документа.
На следующем шаге мы рассмотрим создание документа Word.