次の方法で共有

Envelope オブジェクト (Word)

  • [アーティクル]

文書に関連付ける封筒を表します。

注釈

Envelope オブジェクトを取得するには、Envelope プロパティを使用します。 次の使用例は、新しい文書に封筒を追加し、封筒の上端と住所の間隔を 2.25 インチ (57 mm) に設定します。

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 、 差出人住所 、 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 オブジェクトには、1 つの 封筒 のオブジェクトが含まれています。

関連項目

Word オブジェクト モデル リファレンス

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。