Compartilhar via


Método Application.GetAddress (Word)

Retorna um endereço do catálogo de endereços padrão.

Sintaxe

expressão. GetAddress (Nome, EndereçoProperties, UseAutoText, DisplaySelectDialog, SelectDialog, CheckNamesDialog, RecentAddressesChoice, UpdateRecentAddresses)

expressão Obrigatório. Uma variável que representa um objeto Application.

Parâmetros

Nome Obrigatório/Opcional Tipo de dados Descrição
Name Opcional Variant O nome do destinatário, conforme especificado na caixa de diálogo Nome da pesquisa no catálogo de endereços.
AddressProperties Opcional Variantes Se UseAutoText for True, esse argumento denota o nome de uma entrada do AutoText que define uma sequência de propriedades do catálogo de endereços. Se UseAutoText for False ou omitido, esse argumento definirá um layout personalizado.

Nomes de propriedade do catálogo de endereços válidos ou conjuntos de nomes de propriedades são cercados por colchetes de ângulo ("<" and ">") e separados por um espaço ou uma marca de parágrafo (por exemplo, "<PR_GIVEN_NAME> <PR_SURNAME>" & vbCr & "<PR_OFFICE_TELEPHONE_NUMBER>").

Se o parâmetro AddressProperties for omitido, será usada uma entrada padrão do AutoText chamada "AddressLayout". Se "AddressLayout" não tiver sido definido, a seguinte definição de layout de endereço será usada: "<PR_GIVEN_NAME> <PR_SURNAME>" & vbCr & "<PR_STREET_ADDRESS>" & vbCr & "<PR_LOCALITY>" & ", " & "<PR_STATE_OR_PROVINCE>" & " " & "<PR_POSTAL_CODE>" & vbCr & "<PR_COUNTRY>".

Para obter uma lista dos nomes de propriedade do catálogo de endereço válido, consulte o método AddAddress.
UseAutoText Opcional Variantes True se AddressProperties especificar o nome de uma entrada do AutoText que define uma sequência de propriedades do catálogo de endereços; False se especificar um layout personalizado.
DisplaySelectDialog Opcional Variantes Especifica se a caixa de diálogo Selecionar Nome é exibida, conforme mostrado na tabela Resultados .
SelectDialog Opcional Variantes Especifica como a caixa de diálogo Selecionar Nome deve ser exibida (ou seja, em que modo), conforme mostrado na tabela Modo de exibição .
CheckNamesDialog Opcional Variantes True para exibir a caixa de diálogo Verificar Nomes quando o valor do argumento Nome não for específico o suficiente.
RecentAddressesChoice Opcional Variantes True para usar a lista de endereços de retorno recentemente usados.
UpdateRecentAddresses Opcional Variantes True para adicionar um endereço à lista de recentemente usados endereços; False não adicionar o endereço. Se SelectDialog estiver definido como 1 ou 2, esse argumento será ignorado.

Resultados

Valor Resultado
0 (zero) A caixa de diálogo Selecionar nome não é exibida.
1 ou omitido A caixa de diálogo Selecionar nome é exibida.
2 A caixa de diálogo Selecionar nome não é exibida e nenhuma pesquisa por um nome específico é efetuada. O endereço retornado por esse método será o endereço selecionado anteriormente.

Modo de exibição

Valor Modo de exibição
0 (zero) ou omitido Modo de pesquisa
1 Modo Redigir, com apenas a caixa Para:
2 Modo Redigir, com ambas as caixas Para: e CC:

Valor de retorno

Cadeia de caracteres

Exemplo

Este exemplo define a variável strAddress para o endereço de John Smith, move o ponto de inserção para o início do documento e insere o endereço. O endereço inserido incluirá as propriedades de catálogo de endereços padrão.

Dim strAddress 
 
strAddress = Application.GetAddress(Name:="John Smith", _ 
    CheckNamesDialog:=True) 
ActiveDocument.Range(Start:=0, End:=0).InsertAfter strAddress

O exemplo a seguir retorna o endereço de John Smith, usando a entrada de AutoTexto "My Address Layout" como definição de layout. "My Address Layout" é definida no modelo ativo e contém um conjunto de propriedades de endereço atribuídas à variável text$. O exemplo também adiciona o endereço de John Smith à lista de endereços recentemente usados.

Dim TagIDArray(0 To 3) As String 
Dim ValueArray(0 To 3) As String 
Dim strAddress As String 
 
TagIDArray(0) = "PR_DISPLAY_NAME" 
TagIDArray(1) = "PR_GIVEN_NAME" 
TagIDArray(2) = "PR_SURNAME" 
TagIDArray(3) = "PR_COMMENT" 
ValueArray(0) = "Display_Name" 
ValueArray(1) = "John" 
ValueArray(2) = "Smith" 
ValueArray(3) = "This is a comment" 
 
Application.AddAddress TagID:=TagIDArray(), Value:=ValueArray() 
strAddress = Application.GetAddress(Name:="John Smith", _ 
    UpdateRecentAddresses:=True)

Confira também

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.