Поделиться через

Свойство TextStyles.Application (Publisher)

  • Статья

При использовании без квалификатора объектов это свойство возвращает объект Application , представляющий текущий экземпляр Publisher.

При использовании с квалификатором объектов это свойство возвращает объект Application , представляющий создателя указанного объекта.

При использовании с объектом OLE Automation он возвращает приложение объекта.

Синтаксис

expression. Приложения

Выражение Переменная, представляющая объект TextStyles .

Пример

В этом примере отображаются сведения о версии и сборке для Publisher.

With Application 
 MsgBox "Current Publisher: version " _ 
 & .Version & " build " & .Build 
End With

В этом примере отображается имя приложения, создавшего каждый связанный объект OLE на одной странице активной публикации.

Dim shpOle As Shape 
 
For Each shpOle In ActiveDocument.Pages(1).Shapes 
 If shpOle.Type = pbLinkedOLEObject Then 
 MsgBox shpOle.OLEFormat.Application.Name 
 End If 
Next

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.