Word不允许您轻松更改寄信人地址和主地址打印在信封上的默认位置。有几种方法可以解决此问题，每种方法都可以证明Word完成任务的灵活性。

信封设置似乎存储为文档的一部分，因此可以存储在模板中。如果仅打印一种尺寸的信封，更改信封默认打印位置的最简单方法是执行以下步骤：

。加载Normal.dot模板。 （这是Word在创建空白文档时使用的默认模板。）

。显示信封和标签对话框。通过选择“工具” |“ Word 2000”可以在Word 97和Word 2000中执行此操作。信封和标签。您可以通过选择“工具” |“ Word 2002”和“ Word 2003”来执行此操作。信件和邮件|信封和标签。

。单击信封选项卡。 （请参见图1。）

。单击选项按钮。 Word将显示“信封选项”对话框。

。确保选中“信封选项”选项卡。 （请参见图2。）

。在适当的字段中，根据需要更改地址的位置。

。单击“确定”关闭“信封选项”对话框。

。单击添加到文档。这会在模板中插入一个信封（您已经打开了，记得吗？）。

。从编辑菜单中选择全选。这将选择Word刚添加到文档中的所有信封信息。

。按Del键。信封将从您的文档中删除。

。通过单击“保存”工具或从“文件”菜单中选择“保存”来保存模板。

。关闭模板。

现在，下次您使用基于标准样式的文档时，信封设置将反映您在这些步骤中创建的设置。

您还可以使用使用宏来创建信封的解决方案。

例如，您可以从一个新的空白文档开始，然后创建一个信封，该信封就是您想要的样子。将此信封添加到空白文档，然后使用描述性名称（例如Envelope.dot）将其另存为模板。然后，创建以下宏并将其分配给工具栏按钮：

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告诉我们在更改默认属性后将其删除。一旦信封存在于文档中，我们便更改信封的默认属性。

这是通过“使用ActiveDocument.Envelope”部分完成的。您可以根据需要自定义这些属性，也可以直接忽略它们。 （此示例使用CentimetersToPoints函数设置值；如果需要，可以使用其他函数，例如InchesToPoints。）宏最终通过显示“信封和标签”对话框来显示，因此您可以在打印或创建自己的最后一刻进行任何更改。信封。

注意：

如果您想知道如何使用此页面（或_WordTips_网站上的任何其他页面）中描述的宏，我准备了一个包含有用信息的特殊页面。

点击此处在新的浏览器标签中打开该特殊页面。

_WordTips_是您进行经济有效的Microsoft Word培训的来源。

（Microsoft Word是世界上最流行的文字处理软件。）本技巧（1824）适用于Microsoft Word 97、2000、2002和2003。您可以在Word（Word 2007）的功能区界面中找到此技巧的版本。和更高版本）在这里：

默认信封边距。