Question

全部显示

应用于 Envelope 对象的 ReturnAddress 属性。

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

expression.ReturnAddress

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

说明

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

应用于 LetterContent 对象的 ReturnAddress 属性。

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

expression.ReturnAddress

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

示例

当应用于 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