Método Document.RunLetterWizard (Word)

Executa o Assistente de carta no documento especificado.

Sintaxe

expression. RunLetterWizard( _LetterContent_ , _WizardMode_ )

expressão Obrigatório. Uma variável que representa um objeto Document.

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
Lettercontent	Opcional	Variant	Um objeto LetterContent. Quaisquer propriedades preenchidas no objeto LetterContent aparecem como elementos pré-preenchidos nas caixas de diálogo Assistente de carta. Se esse argumento for omitido, o método GetLetterContent automaticamente é utilizado para obter um objeto LetterContent do documento especificado.
WizardMode	Opcional	Variant	True para exibir a caixa de diálogo Assistente de carta como uma série de etapas com um botão próximo, Back e término. False para exibir a caixa de diálogo Assistente de carta como se foram aberto no menu Ferramentas (uma caixa de diálogo de propriedades com um botão OK e um botão Cancelar ). O valor padrão é True.

Comentários

Use o método CreateLetterContent para retornar um objeto LetterContent, dado várias propriedades do elemento de carta. Use o método GetLetterContent para retornar um objeto LetterContent com base no conteúdo do documento especificado. Use o objeto LetterContent resultante com o método RunLetterWizard para predefinir elementos na caixa de diálogo Assistente de Letras .

Exemplo

Este exemplo cria um novo objeto LetterContent, define várias propriedades para ele e executa o Assistente de carta usando o método 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

O exemplo a seguir usa o método CreateLetterContent para criar um novo objeto LetterContent no documento ativo e, em seguida, usa esse objeto com o método 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

Confira também

Objeto Document

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.