Propriedade TextRange2.Application (Office)

Quando utilizada sem um qualificador de objeto, esta propriedade devolve um objeto de Aplicação que representa a instância atual da aplicação do Microsoft Office. Quando utilizada com um qualificador de objeto, esta propriedade devolve um objeto Aplicação que representa o criador do objeto TextRange2 . Quando utilizado com um objeto de Automatização OLE, devolve a aplicação do objeto. Somente leitura.

Sintaxe

expression. Aplicativo

expressão Uma expressão que devolve um objeto TextRange2 .

Valor de retorno

Objeto

Exemplo

Este exemplo exibe o nome do aplicativo que criou cada objeto OLE vinculado na página um da publicação ativa do Publisher.

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

Confira também

• Membros do objeto TextRange2

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.