Evento Application.MailMergeWizardStateChange (Word)
Este evento se produce cuando un usuario pasa de un paso especificado a otro en el Asistente para combinar correspondencia.
Sintaxis
expresión. MailMergeWizardStateChange (Doc, FromState, ToState, Handled)
expresión Variable que representa un objeto Application.
Para obtener información sobre el uso de eventos con el objeto Application , consulte Uso de eventos con el objeto Application.
Parameters
| Nombre | Obligatorio/opcional | Tipo de datos | Descripción |
|---|---|---|---|
| Doc | Obligatorio | Document | Documento principal de la combinación de correspondencia. |
| FromState | Obligatorio | Long | Paso del Asistente para combinar correspondencia desde el que se mueve el usuario. |
| ToState | Obligatorio | Long | Paso del Asistente para combinar correspondencia al que se mueve el usuario. |
| Handled | Obligatorio | Boolean | True mueve al usuario hasta el paso siguiente. False el usuario permanece en el paso actual. |
Ejemplo:
En este ejemplo, se muestra un mensaje cuando un usuario se mueve del paso tres al paso cuatro del Asistente para combinar correspondencia. En función de la respuesta, el usuario se desplazará al paso cuatro o permanecerá en el paso tres. En este ejemplo, se supone que se ha declarado una variable de aplicación denominada MailMergeApp en las declaraciones generales y que se ha establecido la variable igual al objeto Application de Word.
Private Sub MailMergeApp_MailMergeWizardStateChange(ByVal Doc As Document, _
FromState As Long, ToState As Long, Handled As Boolean)
Dim intVBAnswer As Integer
FromState = 3
ToState = 4
'Display a message when moving from step three to step four
intVBAnswer = MsgBox("Have you selected all of your recipients?", _
vbYesNo, "Wizard State Event!")
If intVBAnswer = vbYes Then
'Continue on to step four
Handled = True
Else
'Return to step three
MsgBox "Please select all recipients to whom " & _
"you want to send this letter."
Handled = False
End If
End Sub
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.