使用英语阅读

通过


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

注解

信封 是可用而不考虑是否将信封添加到指定的文档。 如果不向文档添加一个信封时,会使用下列属性之一,但是,发生错误: 地址AddressFromLeftAddressFromTopFeedSourceReturnAddressReturnAddressFromLeftReturnAddressFromTopUpdateDocument

下面的示例演示如何使用 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 方法可设置信封的属性并将其打印而不将其添加到文档。

备注

[!注释] 没有信封集合; 文档 的每个对象包含一个 信封 对象。

另请参阅

Word 对象模型参考

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈? 请参阅 Office VBA 支持和反馈,获取有关如何接收支持和提供反馈的指南。