Событие Application.MailMergeWizardStateChange (Word)
Происходит, когда пользователь переходит с указанного шага на указанный шаг в мастере слияния.
Синтаксис
expression. MailMergeWizardStateChange (Doc, FromState, ToState, Handled)
выражение: переменная, представляющая объект Application.
Сведения об использовании событий с объектом Application см. в разделе Использование событий с объектом Application.
Параметры
| Имя | Обязательный или необязательный | Тип данных | Описание |
|---|---|---|---|
| Док | Обязательный | Документ | Основной документ слияния. |
| FromState | Обязательный | Long | Шаг мастера слияния, с которого перемещается пользователь. |
| ToState | Обязательный | Long | Шаг мастера слияния, к которому перемещается пользователь. |
| Обрабатываются | Обязательный | Boolean | Значение True перемещает пользователя к следующему шагу. Значение false , чтобы пользователь оставался на текущем шаге. |
Пример
В этом примере отображается сообщение, когда пользователь переходит от третьего шага мастера слияния к четвертом шагу. В зависимости от ответа на сообщение пользователь либо переходит к шагу четыре, либо остается на шаге 3. В этом примере предполагается, что в общих объявлениях объявлена переменная приложения с именем MailMergeApp и задана переменная, равная объекту Word Application.
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
См. также
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.