Студопедия

КАТЕГОРИИ:


Архитектура-(3434)Астрономия-(809)Биология-(7483)Биотехнологии-(1457)Военное дело-(14632)Высокие технологии-(1363)География-(913)Геология-(1438)Государство-(451)Демография-(1065)Дом-(47672)Журналистика и СМИ-(912)Изобретательство-(14524)Иностранные языки-(4268)Информатика-(17799)Искусство-(1338)История-(13644)Компьютеры-(11121)Косметика-(55)Кулинария-(373)Культура-(8427)Лингвистика-(374)Литература-(1642)Маркетинг-(23702)Математика-(16968)Машиностроение-(1700)Медицина-(12668)Менеджмент-(24684)Механика-(15423)Науковедение-(506)Образование-(11852)Охрана труда-(3308)Педагогика-(5571)Полиграфия-(1312)Политика-(7869)Право-(5454)Приборостроение-(1369)Программирование-(2801)Производство-(97182)Промышленность-(8706)Психология-(18388)Религия-(3217)Связь-(10668)Сельское хозяйство-(299)Социология-(6455)Спорт-(42831)Строительство-(4793)Торговля-(5050)Транспорт-(2929)Туризм-(1568)Физика-(3942)Философия-(17015)Финансы-(26596)Химия-(22929)Экология-(12095)Экономика-(9961)Электроника-(8441)Электротехника-(4623)Энергетика-(12629)Юриспруденция-(1492)Ядерная техника-(1748)

Объектная модель MS Word. Свойства и методы объекта Application модели MS Word. Пример




Интеграция приложений средством Automation.

В табл.29 представлены некоторые приложения и их программ­мные идентификаторы (ProgID), используемые при программирова­нии объектов Automation. В общем случае идентификатор ProgID состоит из имени приложения, типа или класса объекта, отделенных точкой.

 

Таблица 29

Приложение Тип объекта Идентификатор (ProdId) Примечание
Excel Application Excel.Application Объект Excel – рабочая книга
Excel WorkBook Excel.Sheet Объект Excel – лист рабочей книги
Excel WorkBook Excel.Chart Объект Excel – диаграмма на листе, связанная с данными другого листа
Word Application Word.Application Объект Word
Word Document Word.Document Объект документ Word
Access Application Access.Application Объект Access
PowerPoint Application PowerPoint.Application Объект PowerPoint
OutLook Application OutLook.Application Объект OutLook
Internet Explorer Application InternetExplorer.Application Объект InternetExplorer

Для доступа к объектам Automation (объектам COM) обычно используют функцию CreateObject. Синтаксис ее следующий:

 

CreateObject (Class, [ServerName]),

где Class – имя объекта Automation;

ServerName используется только при создании объекта Automation в сети и указывает на имя сервера, где установлено приложение-сервер (объект COM).

 


Коллекции, входящие в состав объектной модели, представляют собой списки однотипных по способу создания и размещения объектов (документов, абзацев, таблиц, предложений и т.д.), доступ к которым осущ-ся по индексу (все коллекции в объектных моделях заканчиваются буквой «s»). Элемент коллекции может содержать объекты и коллекции, а отдельный объект –коллекции. Например, документом коллекции Documents является объект Document, а каждая таблица содержит коллекции строк (Rows) и столбцов (Colunms) и объект типа «ячейка»(Cell). Доступ к любому объекту или коллекции возможен через корневой объект Application. Так, например, объект Paragraph не может быть создан отдельно от содержащего его документа. Коллекции также могут содержать и элементы различные по содержанию. Например, коллекция форм может содержать текстовое поле (TextBox), OLE-объект и т.д. Используя коллекции, свойства и методы объекта Application, можно создавать, открывать, редактировать и форматировать документы. Полностью объектная модель MS Word описана в файле справки VBAWDxx.CHM, где xx–число, определяющее версию продукта.Ниже приведены фрагменты кода, которые часто используются при работе с объектами модели MS Word.-

Пример. Создать программный код, выполняющий проверку орфографии текста в приложении MS Word, а также подсчитать количество слов в тексте.

Private Sub Command1_Click()

Dim wordCount As Long

Const wdDoNotSaveChanges As Integer =0, _

wdAlertsNoneAs Integer = 0

Const wdStatisticWordsAs Integer = 0'слов

'ОписываемпеременнуютипаObject(позднее'связывание) исоздаемобъектнабазекласса'Word.Application

Dim vWordAs Object

Set vWord= CreateObject ("Word.Application")

With vWord

. Visible= False'Приложение Word невидимо

. DisplayAlerts= wdAlertsNone 'Запрещаем диалоги

. Documents. Add 'Открытие нового документа

'Копируем содержимое поля в документ

. Selection.Text= Text1

'Запускаем проверку орфографии

. ActiveDocument. CheckSpelling

s =. Selection.Text'Копируем результат обратно

'Для многострочного текста

Text1 = Replace (s, Chr(13), vbCrLf)

With. ActiveDocument

wordCount= .ComputeStatistics (Statistic:=wdStatisticWords)

.Close SaveChanges:=wdDoNotSaveChanges

End With'Закрываем Без сохранения




Поделиться с друзьями:


Дата добавления: 2014-12-23; Просмотров: 1289; Нарушение авторских прав?; Мы поможем в написании вашей работы!


Нам важно ваше мнение! Был ли полезен опубликованный материал? Да | Нет



studopedia.su - Студопедия (2013 - 2024) год. Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав! Последнее добавление




Генерация страницы за: 0.009 сек.