Word) (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 物件。 不過,如果您使用的其中一個下列屬性時將信封尚未新增至文件而發生錯誤: 地址 、 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 方法來設定信封屬性,並列印而不將它新增至文件。
注意
[!注意事項] 沒有信封集合 ;每個 Document 物件只包含一個 Envelope 物件。
有關於 Office VBA 或這份文件的問題或意見反應嗎? 如需取得支援服務並提供意見反應的相關指導,請參閱 Office VBA 支援與意見反應。