TextRange2.Application property (Office)
When used without an object qualifier, this property returns an Application object that represents the current instance of the Microsoft Office application. When 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.
expression An expression that returns a TextRange2 object.
This example displays the name of the application that created each linked OLE object on page one of the active Publisher publication.
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
Support and feedback
Have questions or feedback about Office VBA or this documentation? Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.