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.