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
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.