Objeto LetterContent (Word)
Representa os elementos de uma carta criada pelo Assistente de carta.
Comentários
Use o método GetLetterContent ou CreateLetterContent para retornar um objeto LetterContent. O exemplo a seguir recupera e exibe o nome do destinatário da carta do documento ativo.
Set myLetterContent = ActiveDocument.GetLetterContent
MsgBox myLetterContent.RecipientName
O exemplo a seguir usa o método CreateLetterContent para criar um novo objeto LetterContent, que é utilizado com o método RunLetterWizard.
Set myLetter = ActiveDocument _
.CreateLetterContent(DateFormat:="July 11, 1996", _
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:="100 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, WizardMode:=True
O método CreateLetterContent cria um objeto LetterContent; No entanto, há vários argumentos necessários. Se você quiser definir apenas algumas propriedades, use a palavra-chave New para criar um novo objeto LetterContent autônomo. O exemplo a seguir cria um objeto LetterContent, define algumas de suas propriedades e, em seguida, usa o objeto LetterContent com o método RunLetterWizard para executar o Assistente de carta, usando os valores predefinidos como configurações padrão.
Set myLetter = New LetterContent
With myLetter
.AttentionLine = "Read this"
.EnclosureNumber = 1
.Letterhead = True
.LetterheadLocation = wdLetterTop
.LetterheadSize = InchesToPoints(2)
End With
Documents.Add.RunLetterWizard LetterContent:=myLetter, _
WizardMode:=True
Você pode duplicar um objeto LetterContent, usando a propriedade duplicados. O exemplo a seguir recupera os elementos de carta do documento ativo e faz uma cópia duplicada. O exemplo atribuir a cópia duplicada a aLetter e redefine o nome e o endereço do destinatário com sequências de caracteres vazias. O método RunLetterWizard é usado para executar o Assistente de Letras, usando os valores no objeto LetterContent revisado ( aLetter ) como as configurações padrão.
Set aLetter = ActiveDocument.GetLetterContent.Duplicate
With aLetter
.RecipientName = ""
.RecipientAddress = ""
End With
Documents.Add.RunLetterWizard LetterContent:=aLetter, _
WizardMode:=True
O método SetLetterContent insere o conteúdo do objeto LetterContent especificado em um documento. O exemplo a seguir recupera os elementos de carta do documento ativo, altera a linha de atenção e usa o método SetLetterContent para atualizar o documento ativo para refletir a alteração.
Set myLetterContent = ActiveDocument.GetLetterContent
myLetterContent.AttentionLine = "Greetings"
ActiveDocument.SetLetterContent LetterContent:=myLetterContent
Confira também
Referência do modelo de objeto do Word
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.