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

TextRange2.Application Property

  • Статья
Office Developer Reference

Used without an object qualifier, this property returns an Application object that represents the current instance of the Microsoft Office application. Used with an object qualifier, this property returns an Application object that represents the creator of the TextRange2 object. When used with an OLE Automation object, it returns the object's application. Read-only.

Syntax

expression.Application

expression   An expression that returns a TextRange2 object.

Return Value
Object

Example
This example displays the name of the application that created each linked OLE object on page one of the active Publisher publication.

Visual Basic for Applications 
  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

See Also