_WordTips_的其他问题已解决如何使用模板。

模板不过是样式，宏，工具栏和定义您的Word环境的其他“好东西”的特殊集合。您可以通过简单地更改附加到文档的模板，然后根据需要应用样式来更改文档的外观。您可以使用“模板和加载项”对话框来更改附加到文档的模板。 （请参见图1。）通过从“工具”菜单中选择“模板和加载项”来显示此对话框。

image

图1.模板和加载项对话框。

当您更改文档上的模板时，新模板中的所有内容都不会应用于该文档。例如，模板的页面设置不会应用于文档。这可能令人沮丧，直到您意识到应用它可能会产生很多问题。

为什么？因为Word中的页面设置信息是各部分的功能。这意味着您可以更改文档中定义的每个部分的页面设置。当您将新模板附加到文档时，Word应该如何知道应该覆盖哪一部分的页面设置？如果将模板中的页面设置应用于文档中的所有部分，则可能会丢失很多工作。

但是，当您首次基于模板创建文档时，没有这种问题。在这种情况下，新文档只是整个模板文档的反映。

有了这样的理解，如果您仍然希望将模板中的页面设置信息应用于当前文档，则可以使用宏相当轻松地做到这一点。以下宏可以作为您的指南：

Sub ApplyTemplatePageSetup()

Dim Tmpl As String     Dim CurDoc As Document

Tmpl = ActiveDocument.AttachedTemplate     Set CurDoc = ActiveDocument     Documents.Add Template:=Tmpl

With CurDoc.PageSetup         .LineNumbering.Active = ActiveDocument.PageSetup.LineNumbering.Active         .Orientation = ActiveDocument.PageSetup.Orientation         .TopMargin = ActiveDocument.PageSetup.TopMargin         .BottomMargin = ActiveDocument.PageSetup.BottomMargin         .LeftMargin = ActiveDocument.PageSetup.LeftMargin         .RightMargin = ActiveDocument.PageSetup.RightMargin         .Gutter = ActiveDocument.PageSetup.Gutter         .HeaderDistance = ActiveDocument.PageSetup.HeaderDistance         .FooterDistance = ActiveDocument.PageSetup.FooterDistance         .PageWidth = ActiveDocument.PageSetup.PageWidth         .PageHeight = ActiveDocument.PageSetup.PageHeight         .FirstPageTray = ActiveDocument.PageSetup.FirstPageTray         .OtherPagesTray = ActiveDocument.PageSetup.OtherPagesTray         .OddAndEvenPagesHeaderFooter = ActiveDocument.PageSetup.OddAndEvenPagesHeaderFooter         .DifferentFirstPageHeaderFooter = ActiveDocument.PageSetup.DifferentFirstPageHeaderFooter         .SuppressEndnotes = ActiveDocument.PageSetup.SuppressEndnotes         .MirrorMargins = ActiveDocument.PageSetup.MirrorMargins     End With     ActiveDocument.Close SaveChanges:=wdDoNotSaveChanges

Set CurDoc = Nothing End Sub

此宏确定正在使用的模板，基于该模板创建一个新文档，然后将页面设置信息从新文档复制到原始文档中。完成后，将删除由宏创建的新文档。您可以删除您认为不适用的宏的任何部分。例如，如果您只想更改边距以匹配您的模板，则只需在该宏中保留设置边距的四行即可。

显然，此宏将覆盖文档中的所有页面设置信息。 （这是最初的想法，对吧？）

注意：

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

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

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

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

模板和页面设置。