Word) (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
注解
信封 是可用而不考虑是否将信封添加到指定的文档。 如果不向文档添加一个信封时,会使用下列属性之一,但是,发生错误: 地址 、 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 方法可设置信封的属性并将其打印而不将其添加到文档。
备注
[!注释] 没有信封集合; 文档 的每个对象包含一个 信封 对象。
有关于 Office VBA 或本文档的疑问或反馈? 请参阅 Office VBA 支持和反馈,获取有关如何接收支持和提供反馈的指南。