Свойства и методы сервера Word

Теперь посмотрим, что собой представляет сервер. Любой сервер СОМ — это объект, имеющий множество свойств, методов и реагирующий на какие-то события. В этом отношении он ничем не отличается от любого объекта Delphi. Многие из свойств сервера СОМ в свою очередь являются объектами со сво­ими методами и свойствами. Описание сервера СОМ, как правило, можно найти в его встроенной справке. Например, чтобы разобраться в Word как в объекте, надо посмотреть встроенную в него справку. Для этого следует выполнить в Word команду? | Вызов справки и в открывшейся справке на странице Содержание вы­брать раздел Справка по Visual Basic (для версий, младше Word 97, раздел назван WordBasic Reference). Изложение в справке ведется на основе языка Visual Basic, a для младших версий Word — на подмножестве этого языка WordBasic.

Обращение к свойствам объекта WordApplication, инкапсулирующего объект Application (этот объект является самим выполняющимся экземпляром Word), производится так же, как к свойствам любого объекта Delphi. Например, в Application имеется свойство Options – опции, являющееся в свою очередь объектом со множеством свойств. Среди этих свойств есть CheckSpellingAsYouType и CheckGrammarAsYouType — булевы свойства, указывающие, должен ли Word автома­тически проверять синтаксис и грамматику и отмечать в тексте ошибки. Такая проверка замедляет работу Word. Если вы хотите отключить в сервере эти автома­тические проверки, введите в приложение операторы:

WordApplication1.Options.CheckSpellingAsYouType:=False;

WordApplication1.Options.CheckGrammarAsYouType:=False;

Тем самым вы отключите автоматические проверки, тем более, что в случае, если Word невидим и работает «за кадром», то эти проверки совершенно бессмыс­ленны.

Среди множества свойств Application следует отметить свойство ActiveDocument — активный документ. Практически всегда при работе с сервером Word вам приходится иметь дело со свойством Documents. Это свойство представляет собой собрание всех документов, открытых в Word в данный момент. Каждый документ представлен в этом собра­нии как объект Document, имеющий в свою очередь собственные свойства и мето­ды. Общее число открытых документов определяется свойством Count собрания документов Documents. Это свойство только для чтения часто приходится проверять, чтобы узнать, есть ли в Word хотя бы один открытый документ. Например, если в вашем приложении предусмотрены действия ASave, APrint и Apreview, обеспечивающие сохранение, печать и предварительный просмотр документа, то их, очевидно, надо делать доступными, если ни одного документа в Word нет.

Создание нового документа Document и включение его в Documents осуществляется методом Add объекта Documents. В этот метод можно передать два аргумента Template и NewTemplate. Аргумент Template указывает шаблон, который используется при создании документа. Если этот аргумент не указан, то документ на основе шаблона Обычный (Normal). Аргумент NewTemplate булева типа определяет, открывается ли документ. По умолчанию NewTemplate=false, т.е. открывается обычный документ.

При вызове из Delphi любого метода сервера СОМ аргументы (кроме аргумента типа Text) передаются только как объекты типа OleVariant. Если какие-то аргументы не являются обязательными, то все равно они должны фигурировать в вызове метода. Только вместо их значений может быть указана EmptyParam – переменная типа OleVariant, используемая вместо необязательных параметров. Эта переменная объявлена в модуле System.

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

WordApplication1.Documents.Add(EmptyParam, EmptyParam);

Но если вы хотите создать документ на основе своего шаблона C:\MyTemplate\My.dot, то код будет сложнее:

Var

NewTemplate: OleVariant;

...

Template:= ‘C:\MyTemplate\My.dot’;

WordApplication1.Documents.Add(Template, NewTemplate);

А если требуется создать документ как новый шаблон на основе обычного шаблона, то код будет таким:

Var

NewTemplate: OleVariant;

...

NewTemplate:= true;

WordApplication1.Documents.Add(EmptyParam, NewTemplate);

Дата добавления: 2015-03-29