Другие проблемы WordTips касались того, как использовать шаблоны. Шаблоны – это не что иное, как специальные наборы стилей, макросов, панелей инструментов и других «плюшек», определяющих вашу среду Word. Вы можете изменить внешний вид документа, просто изменив шаблон, прикрепленный к документу, а затем применив стили, если это необходимо. Вы можете изменить шаблон, прикрепленный к документу, с помощью диалогового окна «Шаблоны и надстройки». Чтобы открыть это диалоговое окно, откройте вкладку «Разработчик» на ленте, а затем щелкните «Шаблон документа» в группе «Шаблоны». (См. Рис. 1.)
Рис. 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. PageSetup.RightMargin .Gutter = ActiveDocument.PageSetup.Gutter .HeaderDistance = ActiveDocument.PageSetup.HeaderDistance .FooterDistance = ActiveDocument.PageSetup.FooterDistance .PageWidth = ActiveDocument.PageSetageDistance. FirstPageTray .OtherPagesTray = ActiveDocument.PageSetup.OtherPagesTray .OddAndEvenPagesHeaderFooter = _ ActiveDocument.PageSetup. OddAndEvenPagesHeaderFooter .DifferentFirstPageHeaderFooter = _ ActiveDocument.PageSetup.DifferentFirstPageHeaderFooter .SuppressEndnotes = ActiveDocument.PageSetup.SuppressEndnotes. MirrorMargins = ActiveDocument.PageSetup.MirrorMargins Завершить ActiveDocument.Close SaveChanges: = wdDoNotSaveChanges Установить CurDoc = NothingEnd Sub
Этот макрос определяет используемый шаблон, создает новый документ на основе этого шаблона, а затем копирует информацию о настройке страницы из нового документа в исходный. По завершении новый документ, созданный макросом, удаляется. Вы можете удалить любые части макроса, которые вам не подходят. Например, если вы хотите изменить только поля, чтобы они соответствовали вашему шаблону, все, что вам нужно сохранить в этом макросе, – это четыре строки, которые устанавливают поля.
Очевидно, этот макрос отменяет любую настройку страницы. информацию в вашем документе. (Это оригинальная идея, правда?)