Word (的 Envelope.FeedSource 屬性)

會傳回或設定信封送紙匣。 讀取/寫入 WdPaperTray 。

語法

expression. FeedSource

需要 expression。 代表 'Envelope' 物件的變數。

範例

本範例會詢問使用者是否要手動將信封送入印表機。 如果是，本範例會將紙匣設為手動信封進紙。

Sub exFeedSource() 
 
 Dim intResponse As Integer 
 
 intResponse = _ 
 MsgBox("Are the envelopes manually fed?", vbYesNo) 
 If intResponse = vbYes then 
 On Error GoTo errhandler 
 ActiveDocument.Envelope.FeedSource = _ 
 wdPrinterManualEnvelopeFeed 
 End If 
 
 Exit Sub 
 
errhandler: 
 If Err = 5852 Then MsgBox _ 
 "Envelope not part of the active document" 
 
End Sub

另請參閱

Envelope 物件

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。