Método Application.GetAddress (Word)

Devuelve una dirección de la libreta de direcciones predeterminada.

Sintaxis

más sencilla.GetAddress (Name, AddressProperties, UseAutoText, DisplaySelectDialog, SelectDialog, CheckNamesDialog, RecentAddressesChoice, UpdateRecentAddresses)

expresión necesaria. Variable que representa un objeto Application.

Parameters

Nombre Obligatorio/opcional Tipo de datos Descripción
Name Opcional Variant Nombre del destinatario, como se especifica en el cuadro de diálogo Nombre de búsqueda de la libreta de direcciones.
AddressProperties Opcional Variant Si UseAutoText es True, este argumento denota el nombre de una entrada de Autotexto que define una secuencia de propiedades de la libreta de direcciones. Si UseAutoText es Falso u omitido, este argumento define un diseño personalizado.

Los nombres de propiedad válidos de la libreta de direcciones o conjuntos de nombres de propiedad están rodeados por corchetes angulares ("<" and ">") y separados por un espacio o una marca de párrafo (por ejemplo, "<PR_GIVEN_NAME> <PR_SURNAME>" & vbCr & "<PR_OFFICE_TELEPHONE_NUMBER>").

Si se omite el parámetro AddressProperties , se usa una entrada de Autotexto predeterminada denominada "AddressLayout". Si no se ha definido "AddressLayout", se usa la siguiente definición de diseño de dirección: "<PR_GIVEN_NAME> <PR_SURNAME>" & vbCr & "<PR_STREET_ADDRESS>" & vbCr & "<PR_LOCALITY>" & ", " & "<PR_STATE_OR_PROVINCE>" & " " & "<PR_POSTAL_CODE>" & vbCr & "<PR_COUNTRY>".

Para obtener una lista de los nombres de propiedades de libreta de direcciones válidas, vea el método AddAddress.
UseAutoText Opcional Variant True si AddressProperties especifica el nombre de una entrada de Autotexto que define una secuencia de propiedades de la libreta de direcciones; False si especifica un diseño personalizado.
DisplaySelectDialog Opcional Variant Especifica si se muestra el cuadro de diálogo Seleccionar nombre , como se muestra en la tabla Resultados .
SelectDialog Opcional Variant Especifica cómo debe mostrarse el cuadro de diálogo Seleccionar nombre (es decir, en qué modo), tal como se muestra en la tabla Modo de presentación .
Cuadro de diálogo CheckNamesDialog Opcional Variant Verdadero para mostrar el cuadro de diálogo Comprobar nombres cuando el valor del argumento Nombre no es lo suficientemente específico.
RecentAddressesChoice Opcional Variant True para utilizar la lista de remites utilizados recientemente.
UpdateRecentAddresses Opcional Variant True para agregar una dirección a la lista de recientemente utilizados direcciones; False para no agregar la dirección. Si SelectDialog se establece en 1 o 2, este argumento se omite.

Resultados

Valor Resultado
0 (cero) No se muestra el cuadro de diálogo Seleccionar nombre.
1 u omitido Se muestra el cuadro de diálogo Seleccionar nombre.
2 No se muestra el cuadro de diálogo Seleccionar nombre ni se realizan búsquedas de ningún nombre específico. La dirección devuelta por este método será la dirección previamente seleccionada.

Modo de presentación

Valor Modo de presentación
0 (cero) u omitido Modo Examinar
1 Modo Redacción, sólo con el cuadro Para:
2 Modo Redacción, con los cuadros Para: y CC:

Valor devuelto

String

Ejemplo

En este ejemplo se establece la variable strAddress en la dirección de John Smith, se mueve el punto de inserción al principio del documento y se inserta la dirección. La dirección insertada incluirá las propiedades de la libreta de direcciones predeterminada.

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

En el ejemplo siguiente se devuelve la dirección de John Smith, utilizando el elemento de Autotexto "Mi diseño de dirección" como definición de diseño. "Mi diseño de dirección" se define en la plantilla activa y tiene un conjunto de propiedades de dirección asignadas a la variable text$. En este ejemplo, también se agrega la dirección de John Smith a la lista de direcciones utilizadas recientemente.

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)

Vea también

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.

  • Last updated on