Wordでは、返信先住所とメイン住所が封筒に印刷されるデフォルトの位置を簡単に変更することはできません。この問題を回避する方法はいくつかあり、それぞれがタスクを実行するためのWordの柔軟な性質を示しています。

封筒の設定はドキュメントの一部として保存されているようです。したがって、テンプレートに保存できます。封筒のサイズを1つだけ印刷する場合、封筒のデフォルトの印刷位置を変更する最も簡単な方法は、次の手順に従うことです。

。標準テンプレートをロードします。 （これは、空白のドキュメントを作成するたびにWordで使用されるデフォルトのテンプレートです。）

。リボンの[メーリング]タブを表示します。

。 [作成]グループの[エンベロープ]ツールをクリックします。 Wordは、[封筒]タブが選択された状態で、[封筒とラベル]ダイアログボックスを表示します。 （図1を参照）

。 [オプション]ボタンをクリックします。 Wordは、[封筒オプション]ダイアログボックスを表示します。

。 [封筒オプション]タブが選択されていることを確認します。 （図2を参照）

。適切なフィールドで、必要に応じてアドレスの位置を変更します。

。 [OK]をクリックして、[封筒オプション]ダイアログボックスを閉じます。

。 [ドキュメントに追加]をクリックします。これにより、テンプレートに封筒が挿入されます（開いていることを覚えていますか？）。

。 [編集]メニューから[すべて選択]を選択します。これにより、Wordによってドキュメントに追加されたばかりのすべての封筒情報が選択されます。

。 Delキーを押します。封筒がドキュメントから削除されます。

。 [保存]ツールをクリックするか、[ファイル]メニューから[保存]を選択して、テンプレートを保存します。

。テンプレートを閉じます。

これで、次に標準スタイルに基づいてドキュメントを使用するときに、封筒の設定にこれらの手順で作成したものが反映されます。

マクロを使用してエンベロープを作成するソリューションを使用することもできます。

たとえば、新しい空白のドキュメントから始めて、希望どおりの封筒を作成できます。この封筒を空白のドキュメントに追加し、わかりやすい名前（Envelope.dotなど）を使用してテンプレートとして保存します。次に、次のマクロを作成して、 linkクイックアクセスツールバーに割り当てます。

Sub DoEnv()

Documents.Add Template:="Envelope", NewTemplate:=False     Selection.EndKey Unit:=wdStory     Selection.MoveLeft Unit:=wdCharacter, Count:=2     Selection.PasteSpecial DataType:=wdPasteText     Application.PrintOut Range:=wdPrintCurrentPage     ActiveWindow.Close (False)

End Sub

封筒を印刷するには、手紙の中で住所を強調表示してから、このマクロが関連付けられている[クイックアクセスツールバー]ボタンをクリックします。マクロは、アドレスをクリップボードにコピーし、封筒テンプレートに基づいて新しいドキュメントの適切な場所に貼り付け、封筒を印刷してから、保存せずに封筒ドキュメントを閉じます。

別のアプローチは、マクロを使用して、標準（つまり、最も頻繁に使用するもの）のエンベロープ設定を設定することです。次のマクロはまさにそれを行います：

Sub ToolsEnvelopesAndLabels()

Dim EnvThere As Integer     Dim recipient As String     EnvThere = False     recipient = Selection.Text     On Error Resume Next     If IsError(ActiveDocument.Envelope.Address) Then         ActiveDocument.Envelope.Insert         EnvThere = True     End If     With ActiveDocument.Envelope         .DefaultFaceUp = True         .DefaultOrientation = wdCenterClockwise         .DefaultHeight = CentimetersToPoints(11)

.DefaultWidth = CentimetersToPoints(22)

.AddressFromLeft = CentimetersToPoints(5)

.AddressFromTop = CentimetersToPoints(5)

.ReturnAddressFromLeft = CentimetersToPoints(2)

.ReturnAddressFromTop = CentimetersToPoints(2)

End With     If EnvThere Then         ActiveDocument.Sections(1).Range.Delete     Else         ActiveDocument.Envelope.UpdateDocument     End If     With Application.Dialogs(wdDialogToolsCreateEnvelope)

.ExtractAddress = True         If .AddrText = "" Then             .AddrText = recipient         End If         .Show     End With End Sub

このマクロを使用するには、最初に封筒で使用するアドレスを選択します。他のアドレスがまだ定義されていない場合、マクロは現在の選択を取得し、それをエンベロープアドレスとして使用します。次に、IsError関数は、エンベロープがすでに存在するかどうかを判別します。そうでない場合は、新しいプロパティが挿入され、デフォルトのプロパティを変更したら削除するようにEnvThereが設定されます。ドキュメントにエンベロープが存在するようになったら、エンベロープのデフォルトのプロパティを変更します。

これは、WithActiveDocument.Envelopeセクションで実行されます。これらのプロパティは、必要に応じてカスタマイズすることも、単に省略することもできます。 （この例では、CentimetersToPoints関数を使用して値を設定します。必要に応じて、InchesToPointsなどの他の関数を使用できます。）マクロは、[エンベロープとラベル]ダイアログボックスを表示して終了するため、印刷または作成する前に直前の変更を加えることができます。封筒。

注：

このページ（または_WordTips_サイトの他のページ）で説明されているマクロの使用方法を知りたい場合は、役立つ情報を含む特別なページを用意しました。

linkここをクリックして、新しいブラウザタブでその特別なページを開きます。

_WordTips_は、費用効果の高いMicrosoftWordトレーニングのソースです。

（Microsoft Wordは、世界で最も人気のあるワードプロセッシングソフトウェアです。）このヒント（11433）は、Microsoft Word 2007、2010、2013、2016、2019、およびOffice 365のWordに適用されます。このヒントのバージョンは、ここにWordの古いメニューインターフェイス：

linkDefault EnvelopeMargins。