Document.RunLetterWizard - метод (Word)

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

Синтаксис

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

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

Параметры

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

Примечания

Используйте метод CreateLetterContent для возврата объекта LetterContent с учетом различных свойств элемента буквы. Используйте метод 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

См. также

Объект документа

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

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