LetterContent-Objekt (Word)
Stellt die Elemente eines Briefs dar, der vom Brief-Assistenten erstellt wurde.
Verwenden Sie die GetLetterContent - oder CreateLetterContent-Methode , um ein LetterContent-Objekt zurückzugeben. Im folgenden Beispiel wird der Name des Empfängers für den Brief aus dem aktiven Dokument abgerufen und angezeigt.
Set myLetterContent = ActiveDocument.GetLetterContent
MsgBox myLetterContent.RecipientName
Im folgenden Beispiel wird mit der CreateLetterContent-Methode ein neues LetterContent-Objekt erstellt, das anschließend mit der RunLetterWizard-Methode verwendet wird.
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
Die CreateLetterContent-Methode erstellt ein LetterContent-Objekt . es gibt jedoch zahlreiche erforderliche Argumente. Wenn Sie nur wenige Eigenschaften festlegen möchten, verwenden Sie die neue Schlüsselwort (keyword), um ein neues, eigenständiges LetterContent-Objekt zu erstellen. Im folgenden Beispiel wird ein LetterContent-Objekt erstellt, einige eigenschaften festgelegt und dann das LetterContent-Objekt mit der RunLetterWizard-Methode verwendet, um den Brief-Assistenten auszuführen, wobei die voreingestellten Werte als Standardeinstellungen verwendet werden.
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
Sie können ein LetterContent-Objekt mit der Duplicate-Eigenschaft duplizieren . Im folgenden Beispiel werden die Buchstabenelemente im aktiven Dokument abgerufen und eine Kopie erstellt. Im Beispiel wird das Duplikat aLetter zugewiesen und der Name und die Adresse des Empfängers auf leere Zeichenfolgen zurückgesetzt. Die RunLetterWizard-Methode wird zum Ausführen des Brief-Assistenten verwendet, wobei die Werte im überarbeiteten LetterContent-Objekt ( aLetter ) als Standardeinstellungen verwendet werden.
Set aLetter = ActiveDocument.GetLetterContent.Duplicate
With aLetter
.RecipientName = ""
.RecipientAddress = ""
End With
Documents.Add.RunLetterWizard LetterContent:=aLetter, _
WizardMode:=True
Die SetLetterContent-Methode fügt den Inhalt des angegebenen LetterContent-Objekts in ein Dokument ein. Im folgenden Beispiel werden die Briefelemente aus dem aktiven Dokument abgerufen, die Zeile "Zu Händen von" geändert und anschließend mit der SetLetterContent-Methode das aktive Dokument durch Übernahme der Änderungen aktualisiert.
Set myLetterContent = ActiveDocument.GetLetterContent
myLetterContent.AttentionLine = "Greetings"
ActiveDocument.SetLetterContent LetterContent:=myLetterContent
Referenz zum Word-Objektmodell
Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.