通过

Publisher) (TextRange.Application 属性

  • 项目

在没有对象限定符的情况下使用时，此属性返回一个代表 Publisher 的当前实例的 Application 对象。

如果与对象识别符一起使用，则此属性返回代表指定对象的创建者的 Application 对象。

与 OLE Automation 对象一起使用时，返回对象的应用程序。

语法

表达式。应用

表达 一个代表 TextRange 对象的变量。

示例

以下示例显示了 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 支持和反馈，获取有关如何接收支持和提供反馈的指南。