Evento Application.MailMergeWizardStateChange (Word)
Ocorre quando um usuário passa de uma etapa para uma etapa especificada no Assistente de mala direta.
Sintaxe
expressão. MailMergeWizardStateChange (Doc, FromState, ToState, Handled)
expressão Uma variável que representa um Aplicativo objeto.
Para obter informações sobre como usar eventos com o objeto Application , consulte Usando eventos com o objeto Application.
Parâmetros
| Nome | Obrigatório/Opcional | Tipo de dados | Descrição |
|---|---|---|---|
| Doc | Obrigatório | Document | O documento principal de mala direta. |
| FromState | Obrigatório | Long | A etapa do Assistente de mala direta a partir da qual o usuário está se movendo. |
| ToState | Obrigatório | Long | A etapa do Assistente de mala direta para a qual o usuário está se movendo. |
| Handled | Obrigatório | Boolean | True move o usuário para a próxima etapa. False para o usuário permaneça na etapa atual. |
Exemplo
Este exemplo exibe uma mensagem quando o usuário passa da etapa três do Assistente de mala direta para a etapa quatro. Baseado na resposta à mensagem, o usuário passará à etapa quatro ou permanecerá na etapa três. O exemplo pressupõe que você declarou uma variável do aplicativo chamada MailMergeApp nas declarações gerais e definiu a variável com um valor igual ao do objeto Application do 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
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.