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: