Propriedade TextRange2.Application (Office)

Quando usada sem um qualificador de objeto, essa propriedade retorna um objeto Application que representa a instância atual do aplicativo Microsoft Office. Quando usada com um qualificador de objeto, essa propriedade retorna um objeto Application que representa o criador do objeto TextRange2 . Quando usado com um objeto de Automação OLE , ele retorna o aplicativo do objeto. Somente leitura.

Sintaxe

expression. Aplicativo

expressão Uma expressão que retorna 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.