Question

Documents (Document) Envelope 多种对象

代表一个信封。没有“Envelopes ”集合，因为每个 Document 对象只能有一个 Envelope 对象。

使用 Envelope 对象

使用 Envelope 属性返回 Envelope 对象。下面示例向一篇新文档中添加信封，并将信封顶端到地址的距离设为 2.25 英寸。

Set myDoc = Documents.Add
addr = "Michael Matey" & vbCr & "123 Skye St." _
 & vbCr & "Redmond, WA 98107"
retaddr = "Cora Edmonds" & vbCr & "456 Erde Lane" & vbCr _
 & "Redmond, WA 98107"
With myDoc.Envelope
 .Insert Address:=addr, ReturnAddress:=retaddr
 .AddressFromTop = InchesToPoints(2.25)
End With

说明

不论信封是否已添至指定文档，其 Envelope 对象都是有效的。但是，如果未将信封添加到文档却使用了下列属性之一，则会导致出错：Address、AddressFromleft、AddressFromTop、FeedSource、ReturnAddress、ReturnAddressFromLeft、ReturnAddressFromTop 和 UpdateDocument。

下列示例说明，如果信封尚未添至活动文档，如何使用 On Error GoTo 语句来处理错误。然而如果信封成功添加到活动文档中，则显示收件人地址。

On Error GoTo ErrorHandler
MsgBox ActiveDocument.Envelope.Address
ErrorHandler:
If Err = 5852 Then MsgBox _
 "Envelope is not in the specified document"

可使用 Insert 方法将信封添至指定文档。可使用 PrintOut 方法设置信封属性并打印信封，但并不把信封添至文档。