Método Application.GetAddress (Word)
Devuelve una dirección de la libreta de direcciones predeterminada.
Sintaxis
expresión. GetAddress (Name, AddressProperties, UseAutoText, DisplaySelectDialog, SelectDialog, CheckNamesDialog, RecentAddressesChoice, UpdateRecentAddresses)
expresión requerida. 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 False o se omite, este argumento define un diseño personalizado. Los nombres de propiedad de la libreta de direcciones o los conjuntos de nombres de propiedad válidos están rodeados por corchetes angulares ( "<" and ">") y están 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 se debe mostrar el cuadro de diálogo Seleccionar nombre (es decir, en qué modo), como se muestra en la tabla Modo de visualización . |
| CheckNamesDialog | Opcional | Variant | True para mostrar el cuadro de diálogo Comprobar nombres cuando el valor del argumento Name 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 está establecido en 1 o 2, se omite este argumento. |
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 e 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.