通过

Word) (LetterContent 对象

  • 项目

表示由“英文信函向导”创建的信函的元素。

备注

使用 GetLetterContent 或 CreateLetterContent 方法以返回一个 LetterContent 对象。 下面的示例检索并显示活动文档中信函接受者的名字。

Set myLetterContent = ActiveDocument.GetLetterContent 
MsgBox myLetterContent.RecipientName

下面的示例使用 CreateLetterContent 方法来创建一个新的 LetterContent 对象，然后使用 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

CreateLetterContent 方法创建一个 LetterContent 对象;但是，还有许多必需的参数。 如果您想要设置很少的属性，请使用 New 关键字来创建一个新的、 独立的 LetterContent 对象。 下面的示例将创建一个 LetterContent 对象，设置它的一些属性，然后使用 RunLetterWizard 方法与 LetterContent 对象运行英文信函向导，将用作默认设置的预设的值。

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

通过使用 重复 的属性，您可以复制一个 LetterContent 对象。 下面的示例检索活动文档中的信函元素并制作副本。 该示例将重复副本分配给 aLetter ，并将收件人的姓名和地址重置为空字符串。 RunLetterWizard 方法用于运行字母向导，使用修订后的 LetterContent 对象中的值 ( aLetter ) 作为默认设置。

Set aLetter = ActiveDocument.GetLetterContent.Duplicate 
With aLetter 
 .RecipientName = "" 
 .RecipientAddress = "" 
End With 
Documents.Add.RunLetterWizard LetterContent:=aLetter, _ 
 WizardMode:=True

SetLetterContent 方法在文档中插入指定的 LetterContent 对象的内容。 下面的示例检索活动文档中的信函元素，更改用语，然后使用 SetLetterContent 方法来更新活动文档来反映这些更改。

Set myLetterContent = ActiveDocument.GetLetterContent 
myLetterContent.AttentionLine = "Greetings" 
ActiveDocument.SetLetterContent LetterContent:=myLetterContent

另请参阅

Word 对象模型参考

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。