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.