Propriedade Font.Application (Publisher)Font.Application Property (Publisher)

Quando usado sem um qualificador de objeto, essa propriedade retorna um objeto Application que representa a instância atual do Publisher.Used without an object qualifier, this property returns an Application object that represents the current instance of Publisher. Usada com um qualificador de objeto, essa propriedade retorna um objeto Application que representa o criador do objeto especificado.Used with an object qualifier, this property returns an Application object that represents the creator of the specified object. Quando usado com um objeto de automação OLE, ele retorna o aplicativo do objeto.When used with an OLE Automation object, it returns the object's application.

SintaxeSyntax

expression.expression. AplicativoApplication

expressão Uma variável que representa um objeto Font .expression A variable that represents a Font object.

ExemploExample

Este exemplo exibe informações sobre a versão e compilação do Publisher.This example displays the version and build information for Publisher.

With Application 
 MsgBox "Current Publisher: version " _ 
 & .Version & " build " & .Build 
End With

Este exemplo exibe o nome do aplicativo que criou cada objeto OLE vinculado na página da publicação ativa.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