Word VBA教程:LetterContent对象

Documents (Document)
LetterContent

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

使用 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对象,设置它的一些属性,并且在此 LetterContent对象上使用RunLetterWizard方法来运行信函向导(用预置值做为默认设置)。


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

Duplicate属性可复制 LetterContent对象。以下示例获得活动文档中的信函元素并制作副本。该示例将副本分配给aLetter,并将收件人姓名和地址重新设置为空字符串。RunLetterWizard方法用于运行信函向导,可使用修订过的 LetterContent对象中的值作为默认设置。


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 VBA教程

Word VBA参考教程:目录1 Word VBA参考教程:目录2
Word VBA参考教程:目录3 Word VBA参考教程:目录4
Word VBA参考教程:目录5 Word VBA参考教程:目录6
Word VBA参考教程:目录7 Word VBA参考教程:目录8
Word VBA参考教程:目录9 Word VBA参考教程:目录10
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号