|
|
Сервер поддерживается
кафедрой информатики и вычислительной техники ГрГУ
тел. +375-(0)152-445-101
E-mail : kadan@grsu.grodno.by |
Взаимодействие с внедренными объектами Word
Получить объект Application позволяет свойство Application любого объекта Word. А значит, можно получить объект Application Word из документ Word, внедренного в другое приложение. В следующем примере для Microsoft Excel объектной переменной присваивается ссылка на объект Application Word. [Чтобы эта программа сработала, в первую фигуру (shape) на активном рабочем листе должен быть внедрен документ Word.] Последняя инструкция в этой программе добавляет текст в начало внедренного документа Word.
Dim aopWRD As Word .Application
Set embeddedDoc = ActiveSheet. Shapes(1)
Set appWRD = embeddedDoc. OLEFormat. Object. Object. Application
appWRD. ActiveDocurnent. Range(Start := 0, End := 0). lnsertBefore Text := "New text"
В следующем примере для PowerPoint объектной переменной присваивается ссылка на объект Application Word. В примере предполагается, что первая фигура на первом слайде ? внедренный документ Word. Последняя инструкция в этой программе отображает текст внедренного документа Word.
Dim appWRD As Word. Application
Set embeddedDoc = Presentations(1). Slides(1). Shapes(1)
embeddedDoc. OLEFormat. Activate
Set appWRD = embeddedDoc. OLEFormat. Object. Application
MsgBox appWRD. ActiveDocument. Content .Tex t
Текст пособия подготовлен на основе материалов книги
Microsoft Corporation. Руководство программиста по Visual Basic для Microsoft Office 97 / Пер. с англ. - М.: Издательский отдел "Русская Редакция" ТОО "Channel Trading Ltd.", 1997. - 544 с.: илл.
c Оригинальное издание на английском языке, Microsoft Corporation, 1997
c Русский перевод, Microsoft Corporation, 1997
|