Word VBA教程:Envelope对象

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方法设置信封属性并打印信封,但并不把信封添至文档。

Word VBA教程

Word VBA参考教程:目录1 Word VBA参考教程:目录2
Word VBA参考教程:目录3 Word VBA参考教程:目录4
Word VBA参考教程:目录5 Word VBA参考教程:目录6
Word VBA参考教程:目录7 Word VBA参考教程:目录8
Word VBA参考教程:目录9 Word VBA参考教程:目录10
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号