通过

TextRange2.Application 属性 (Office)

在没有对象限定符的情况下使用时，此属性返回一个代表 Microsoft Office 应用程序的当前实例的 Application 对象。 与对象限定符一起使用时，此属性返回一个 Application 对象，该对象代表 TextRange2 对象的创建者。 与 OLE 自动化 对象一起使用时，它将返回对象的 应用程序。 此为只读属性。

语法

表达式。应用

表达 返回 TextRange2 对象的表达式。

返回值

对象

示例

以下示例显示在活动 Publisher 出版物第一页上创建了各个链接 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 支持和反馈，获取有关如何接收支持和提供反馈的指南。