Compartilhar via

Método Application.GetAddress (Word)

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

Sintaxe

expressão. GetAddress (Nome, AddressProperties, 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 Variant Se UseAutoText for Verdadeiro, este argumento denota o nome de uma entrada de Texto Automático que define uma sequência de propriedades do livro de endereços. Se UseAutoText for Falso ou omitido, este argumento define um esquema personalizado.

Os nomes de propriedades do livro de endereços válidos ou conjuntos de nomes de propriedades estão entre parênteses angulares ("<" 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, é utilizada uma entrada de Texto Automático predefinida com o nome "AddressLayout". Se "AddressLayout" não tiver sido definido, será utilizada a seguinte definição de esquema de endereço: "<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 Variant Verdadeiro se AddressProperties especificar o nome de uma entrada de Texto Automático que define uma sequência de propriedades do livro de endereços; Falso se especificar um esquema personalizado.
DisplaySelectDialog Opcional Variant Especifica se a caixa de diálogo Selecionar Nome é apresentada, conforme mostrado na tabela Resultados .
SelectDialog Opcional Variant Especifica como a caixa de diálogo Selecionar Nome deve ser apresentada (ou seja, em que modo), conforme mostrado na tabela Modo de visualização .
CheckNamesDialog Opcional Variant Verdadeiro para apresentar a caixa de diálogo Verificar Nomes quando o valor do argumento Nome não é suficientemente específico.
RecentAddressesChoice Opcional Variant True para usar a lista de endereços de retorno recentemente usados.
UpdateRecentAddresses Opcional Variant 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, este argumento é 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 João Silva, 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.

  • Last updated on