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 方法可设置信封的属性并将其打印而不将其添加到文档。

注意

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

另请参阅

Word 对象模型参考

支持和反馈

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