Использование технологии автоматизации для работы с пакетом Microsoft Office, страница 5

Количество абзацев в документе хранится в свойстве Count объекта Paragraphs и может быть присвоено переменной целого типа (например, NumPars):

NumPars = WordApp.OlePropertyGet("Documents").OleFunction("Item",1).
OlePropertyGet("Paragraphs").OlePropertyGet("Count");

Для ссылки на нужный абзац у объекта Paragraphs предусмотрен метод Item, параметр которого задает номер абзаца в выбранном документе. Чтобы получить возможность работать с фрагментом текста R, находящимся в третьем абзаце документа, можно применить оператор

R = W.OlePropertyGet("Documents").OleFunction("Item",1).OleFunction("Range",
W.OlePropertyGet("Documents").OleFunction("Item",1).
OlePropertyGet("Paragraphs").OleFunction("Item",3).
OlePropertyGet("Range").OlePropertyGet("Start"),
W.OlePropertyGet("Documents").OleFunction("Item",1).
OlePropertyGet("Paragraphs").OleFunction("Item",3).
OlePropertyGet("Range").OlePropertyGet("End"));

Фрагмент текста R можно копировать в буфер, удалять с запоминанием в буфере и дополнять текстом, хранящимся в буфере, с помощью соответствующих методов Copy, Cut и Paste.

Позднее связывание с сервером автоматизации Excel

Для работы с табличным процессором Excel предусмотрены объекты автоматизации Application, WorkBooks (рабочие книги), Sheets (листы рабочей книги), WorkSheets (рабочие листы), Charts (диаграммы), которые образуют иерархию, отражающую подчиненность открытых рабочих книг приложению, вхождение листов в рабочую книгу и разделение листов рабочей книги на рабочие листы и диаграммы. Рассмотрим на примерах способы управления этими объектами с помощью предусмотренных для них методов.

С объектом автоматизации Application связан строковый идентификатор “Excel.Application. Следующий фрагмент программы устанавливает указатель XL на интерфейс объекта автоматизации Application, запускает сервер автоматизации Excel, устанавливает свойство Visible объекта автоматизации Application равным True для отображения окна табличного процессора на экране, методом Add объекта WorkBooks создает новую рабочую книгу WorkBook, методом Add объекта WorkSheets создает новый рабочий лист, затем устанавливает ссылку Sheet на 1-й рабочий лист рабочей книги WorkBook и организует вычисление логарифмической функции для аргумента, равного 1, в ячейке с адресом В2.