Метод Document.RunLetterWizard (Word)

Статья
04/07/2023

Запускает мастер букв для указанного документа.

Синтаксис

выражение. RunLetterWizard( _LetterContent_ , _WizardMode_ )

выражение (обязательно). Переменная, представляющая объект Document .

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
LetterContent	Необязательный	Variant	Объект LetterContent . Все заполненные свойства в объекте LetterContent отображаются как предварительно заполненные элементы в диалоговых окнах мастера письма. Если этот аргумент опущен, метод GetLetterContent автоматически используется для получения объекта LetterContent из указанного документа.
WizardMode	Необязательный	Variant	Значение true для отображения диалогового окна Мастер писем в виде ряда шагов с кнопками Далее, Назад и Готово . Значение False , чтобы диалоговое окно мастера письма отображалось так, как если бы оно было открыто из меню Сервис (диалоговое окно свойств с кнопкой ОК и кнопкой Отмена ). Значение по умолчанию — True.

Замечания

Используйте метод CreateLetterContent для возврата объекта LetterContent с учетом различных свойств элемента letter. Используйте метод GetLetterContent для возврата объекта LetterContent на основе содержимого указанного документа. Используйте результирующий объект LetterContent с методом RunLetterWizard для предварительной настройки элементов в диалоговом окне Мастера писем .

Пример

В этом примере создается новый объект LetterContent , задается несколько свойств для него, а затем запускается мастер письма с помощью метода RunLetterWizard .

Set myContent = New LetterContent 
With myContent 
 .Salutation ="Hello" 
 .SalutationType = wdSalutationOther 
 .SenderName = Application.UserName 
 .SenderInitials =Application.UserInitials 
End With 
Documents.Add.RunLetterWizard _ 
 LetterContent:=myContent, WizardMode:=True

В следующем примере метод CreateLetterContent используется для создания объекта LetterContent в активном документе, а затем он использует этот объект с методом RunLetterWizard .

Set myLetter = ActiveDocument _ 
 .CreateLetterContent(DateFormat:="July 31, 1999", _ 
 IncludeHeaderFooter:=False, _ 
 PageDesign:="C:\MSOffice\Templates" _ 
 & "\Letters & Faxes\Contemporary Letter.dot", _ 
 LetterStyle:=wdFullBlock, Letterhead:=True, _ 
 LetterheadLocation:=wdLetterTop, _ 
 LetterheadSize:=InchesToPoints(1.5), _ 
 RecipientName:="Dave Edson", _ 
 RecipientAddress:="436 SE Main St." _ 
 & vbCr & "Bellevue, WA 98004", _ 
 Salutation:="Dear Dave,", _ 
 SalutationType:=wdSalutationInformal, _ 
 RecipientReference:="", MailingInstructions:="", _ 
 AttentionLine:="", Subject:="End of year report", _ 
 CCList:="", ReturnAddress:="", SenderName:="", _ 
 Closing:="Sincerely yours,", SenderCompany:="", _ 
 SenderJobTitle:="", SenderInitials:="", _ 
 EnclosureNumber:=0) 
ActiveDocument.RunLetterWizard LetterContent:=myLetter

См. также

Объект Document

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

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

Поделиться через