object that represents the current instance of Publisher. Used with an object qualifier, this property returns an Application object that represents the creator of the specified object. When used with an OLE Automation object, it returns the object's application. Read-only.
expression.Application
expression Required. An expression that returns one of the objects in the Applies To list.
Example
This example displays the version and build information for Publisher.
With Application
MsgBox "Current Publisher: version " _
& .Version & " build " & .Build
End With
This example displays the name of the application that created each linked OLE object on page one of the active 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