Objeto LetterContent (Word)
Representa los elementos de una carta creada por el Asistente para cartas.
Comentarios
Utilice el método GetLetterContent o CreateLetterContent para devolver un objeto LetterContent. En el siguiente ejemplo se recupera y se muestra el nombre del destinatario de la carta del documento activo.
Set myLetterContent = ActiveDocument.GetLetterContent
MsgBox myLetterContent.RecipientName
En el siguiente ejemplo utiliza el método CreateLetterContent para crear un nuevo objeto LetterContent, que, a continuación, se utiliza con el 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
El método CreateLetterContent crea un objeto LetterContent; Sin embargo, hay muchos argumentos necesarios. Si desea establecer sólo una pocas propiedades, utilice la palabra clave New para crear un objeto LetterContent nuevo e independiente. El ejemplo siguiente crea un objeto LetterContent nuevo, establece algunas de sus propiedades y, a continuación, utiliza el objeto LetterContent con el método RunLetterWizard para ejecutar al Asistente para cartas, usando los valores preestablecidos como valores predeterminados.
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
Puede duplicar un objeto LetterContent mediante la propiedad Duplicate. El siguiente ejemplo recupera los elementos de la carta del documento activo y crea un duplicado. En el ejemplo, se asigna la copia duplicada a aLetter y se restablecen el nombre y la dirección del destinatario a cadenas vacías. El método RunLetterWizard se usa para ejecutar el Asistente para cartas, utilizando los valores del objeto LetterContent revisado ( aLetter ) como configuración predeterminada.
Set aLetter = ActiveDocument.GetLetterContent.Duplicate
With aLetter
.RecipientName = ""
.RecipientAddress = ""
End With
Documents.Add.RunLetterWizard LetterContent:=aLetter, _
WizardMode:=True
El método SetLetterContent inserta el contenido del objeto LetterContent especificado en un documento. En el siguiente ejemplo recupera los elementos de carta del documento activo, se cambia la línea de atención y, a continuación, se usa el método SetLetterContent para actualizar el documento activo para reflejar el cambio.
Set myLetterContent = ActiveDocument.GetLetterContent
myLetterContent.AttentionLine = "Greetings"
ActiveDocument.SetLetterContent LetterContent:=myLetterContent
Vea también
Referencia de modelos de objetos de Word
Soporte técnico y comentarios
¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.