Word VBA教程:ReturnAddress属性

应用于 Envelope对象的 ReturnAddress属性。

返回一个Range对象,该对象代表信封上的寄信人地址。

expression.ReturnAddress

expression   必需。该表达式返回一个Envelope对象。

说明

如果在为文档添加信封之前使用该属性,则会产生错误。

应用于 LetterContent对象的 ReturnAddress属性。

返回或设置由“英文信函向导”创建的信件的寄信人地址。String 类型,可读写。

expression.ReturnAddress

expression   必需。该表达式返回一个LetterContent对象。

VBA示例

当应用于 Envelope对象时。

如果为活动文档添加了一个信封,则本示例显示其寄信人地址,否则,将显示一个消息框。


On Error GoTo errhandler
addr = ActiveDocument.Envelope.ReturnAddress.Text
MsgBox Prompt:=addr, Title:="Return Address"
errhandler:
If Err = 5852 Then MsgBox _
    "The active document doesn't include an envelope"

当应用于 LetterContent对象时。

本示例创建新的 LetterContent对象,设置寄信人地址和其他一些属性,然后用RunLetterWizard方法运行“英文信函向导”。


Dim oLC as New LetterContent
With oLC
    .LetterStyle = wdFullBlock
    .Salutation ="Hello"
    .SalutationType = wdSalutationOther
    .ReturnAddress = Application.UserAddress
End With
Documents.Add.RunLetterWizard LetterContent:=oLC

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号