Событие 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

См. также

Объект Application

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.