应用于 Envelope 对象的 ReturnAddress 属性。
应用于 LetterContent 对象的 ReturnAddress 属性。
返回或设置由“英文信函向导”创建的信件的寄信人地址。String 类型,可读写。
expression.ReturnAddress
expression 必需。该表达式返回一个 LetterContent 对象。
如果为活动文档添加了一个信封,则本示例显示其寄信人地址,否则,将显示一个消息框。
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 对象,设置寄信人地址和其他一些属性,然后用 RunLetterWizard 方法运行“英文信函向导”。
Dim oLC as New LetterContent
With oLC
.LetterStyle = wdFullBlock
.Salutation ="Hello"
.SalutationType = wdSalutationOther
.ReturnAddress = Application.UserAddress
End With
Documents.Add.RunLetterWizard LetterContent:=oLC