Nota
O acceso a esta páxina require autorización. Pode tentar iniciar sesión ou modificar os directorios.
O acceso a esta páxina require autorización. Pode tentar modificar os directorios.
Agrega un campo ASK a un documento principal de combinación de correspondencia. Devuelve un objeto MailMergeField.
Sintaxis
expresión.
AddAsk( _Range_ , _Name_ , _Prompt_ , _DefaultAskText_ , _AskOnce_ )
expresión necesaria. Variable que representa una colección "MailMergeFields".
Parameters
| Nombre | Obligatorio/opcional | Tipo de datos | Descripción |
|---|---|---|---|
| Range | Obligatorio | Range (objeto) | Ubicación del campo ASK. |
| Name | Obligatorio | String | Nombre del marcador al que se asigna la respuesta o el texto predeterminado. Utilice un campo REF con el nombre del marcador para mostrar el resultado en un documento. |
| Prompt | Opcional | Variant | Texto que se muestra en el cuadro de diálogo. |
| DefaultAskText | Opcional | Variant | Respuesta predeterminada que aparece en el cuadro de texto cuando se muestra el cuadro de diálogo. Corresponde al modificador \d de un campo ASK. |
| AskOnce | Opcional | Variant | True para mostrar el cuadro de diálogo una sola vez en lugar de mostrarlo cada vez que se combina un nuevo registro. Corresponde al modificador \o de un campo ASK. |
Valor devuelto
MailMergeField
Observaciones
Cuando se actualiza, el campo ASK muestra un cuadro de diálogo en el que se solicita el texto que se va a asignar al marcador especificado.
Ejemplo
En este ejemplo se agrega un campo ASK al final del documento principal de combinación de correspondencia activo.
Dim rngTemp As Range
Set rngTemp = ActiveDocument.Content
rngTemp.Collapse Direction:=wdCollapseEnd
ActiveDocument.MailMerge.Fields.AddAsk _
Range:=rngTemp, _
Prompt:="Type your company name", _
Name:="company", AskOnce:=True
En este ejemplo se agrega un campo ASK detrás del último campo de combinación de correspondencia en Main.doc.
Dim colMailMergeFields As Object
Dim rngTemp As Range
Set colMailMergeFields = Documents("Main.doc").MailMerge.Fields
colMailMergeFields(colMailMergeFields.Count).Select
Set rngTemp = Selection.Range
rngTemp.Collapse wdCollapseEnd
colMailMergeFields.AddAsk Range:=rngTemp, Name:="name", _
Prompt:="What is your name"
Vea también
Objeto de colección MailMergeFields
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.