Факультет Математики и Информатики ГрГУ: Работа с другими приложениями из Word

Вход

Главная страница >> Учебный процесс >> Конспекты >> MS Office. Руководство программиста по Visual Basic для MS Office 97 >> Объекты Microsoft Word >> Применение Автоматизации. >> Работа с другими приложениями из Word

Сервер поддерживается
кафедрой информатики и вычислительной техники ГрГУ
тел. +375-(0)152-445-101
E-mail : kadan@grsu.grodno.by

[Назад] [Содержание ] [Вперед]

Работа с другими приложениями из Word

Для обмена данными с другим приложением из Word через Автоматизацию, надо прежде всего установить ссылку на библиотеку типов этого приложения в диалоговом окне References (Ссылки). После этого объекты, свойства и методы другого приложения появятся в окне Object Browser (Просмотр объектов), и Visual Basic сможет автоматически проверять синтаксис инструкций при компиляции. Кроме того, Вы сможете получать контекстно-зависимую справку по этим объектам, свойствам и методам.

Установив ссылку на библиотеку типов, объявите объектные переменные, ссылающиеся на объекты другого приложения. В следующем примере мы объявляем такую переменную, указывающую на объект Application Microsoft Excel:

Dim xlObj As Excel.Application.8

Вызвав функцию CreateObject или GetObject, Вы получите ссылку на объект Автоматизации. После этого, используя объекты, свойства и методы другого приложения, Вы сможете добавлять, изменять или удалять соответствующую информацию. Закончив свои операции, закройте приложение. В следующем примере для Word проверяется, запущен ли в данный момент Microsoft Excel. Если да, программа использует функцию GetObject, нет ? функцию CreateObject. Далее программа передает выделенный текст в первую ячейку на первом листе активной рабочей книги Microsoft Excel. Завершая свою работу, программа очищает объектную переменную, записывая в нее ключевое слово Nothing оператором Set.

Dim xlObj As Excel.Application.8
If Tasks.Exists("Microsoft Excel") = True Then
Set xlObj = GetObject("Excel.Application.8")
Else
Set xlObj = CreateObject("Excel.Application.8")
End If
xlObj.Visible = True
If xlObj.Workbooks.Count = 0 Then xlObj.Workbooks.Add
xlObj.Worksheets("Sheet1").Range("A1").Value = Selection.Text
Set xlObj = Nothing

В следующем примере для Word проверяется, запущен ли в данный момент PowerPoint. Если да, программа использует функцию GetObject, нет ?функцию CreateObject. После этого программа создает новую презентацию, первое текстовое поле которой содержит имя активного документа Word, а второе ? текст первого абзаца активного документа. Завершая свою работу программа очищает объектную переменную, записывая в нее ключевое слово Nothing оператором Set.

Dim pptObj As PowerPoint. Application. 8
If Tasks. Exists( "Microsoft PowerPoint") = True Then
     Set pptObj = GetObject(, "PowerPoint.Application.8")
Else
     Set pptObj = CreateObject("PowerPoint.Application. 8")
End If
pptObj. Visible = True
Set pptPres = pptObj. Presentations. Add
Set aSlide = pptPres. Slides.Add(lndex:=1, Layout := ppLayoutText)
aSlide. Shapes(1).TextFrame. TextRange.Text = ActiveDocument.Name
aSlide. Shapes(2).TextFrarne. TextRange. Text = _
     ActiveDocument. Paragraphs(1). Range. Text
Set pptObj = Nothing

Об автоматизации Microsoft Access см. главу 3 ?Объекты Microsoft Access? об использовании DAO в Word см. главу 11 ?DAO? и раздел ?Using DAO from Microsoft Word? справочной системы.

[Назад] [Содержание ] [Вперед]

Текст пособия подготовлен на основе материалов книги
Microsoft Corporation. Руководство программиста по Visual Basic для Microsoft Office 97 / Пер. с англ. - М.: Издательский отдел "Русская Редакция" ТОО "Channel Trading Ltd.", 1997. - 544 с.: илл.
c Оригинальное издание на английском языке, Microsoft Corporation, 1997
c Русский перевод, Microsoft Corporation, 1997