В многопользовательской среде часто бывает желательно настроить Word так, чтобы его можно было легко вернуть в исходное состояние по умолчанию. Например, в компьютерных лабораториях или учебных центрах вы можете захотеть вернуть Word к значениям по умолчанию, прежде чем следующая группа людей войдет и внесет свои собственные изменения конфигурации.

К сожалению, нет переключателя, который можно было бы включить, чтобы предотвратить изменения или вернуть все в нормальное состояние. (Вы, вероятно, в любом случае не захотите предотвращать изменения, особенно если вы обучаете людей настройке Word.) Самый близкий подход — использовать переключатель командной строки / a для запуска Word. Согласно интерактивной справочной системе, этот переключатель заставляет Word «предотвращать автоматическую загрузку надстроек и глобальных шаблонов (включая шаблон Normal)». Он также «предотвращает чтение или изменение файлов настроек». Если вы хотите использовать этот переключатель, просто выполните следующие действия:

  1. В браузере на рабочем столе (Windows, а не Word) откройте папку, содержащую ярлык, используемый для запуска Word.

  2. Щелкните правой кнопкой мыши значок ярлыка. Откроется контекстное меню для ярлыка.

  3. Выберите параметр «Свойства» в контекстном меню. Откроется диалоговое окно Свойства ярлыка.

  4. Щелкните вкладку «Ярлык». (См. Рис. 1.)

  5. В конце поля Target добавьте следующее: / a (Если текст в поле Target окружен кавычками, убедитесь, что вы разместили / a за пределами кавычек. Также убедитесь, что перед слэш.)

  6. Щелкните ОК.

Обратите внимание, что этот подход означает, что вы никогда не сможете изменить Word и сохранить изменения. Если вам нужно, чтобы конфигурация начиналась с условия, отличного от заданного по умолчанию, то лучшим подходом является использование макроса AutoExec для сброса всех настраиваемых параметров Word до значений по умолчанию. Точный макрос, который нужно использовать, будет отличаться в зависимости от используемой версии Word. Однако подход к использованию при создании макроса может быть очень последовательным. Все, что вам нужно сделать, это выполнить следующие общие шаги:

  1. Составьте список (на бумаге) всех параметров, которые вы хотите сбросить.

Просто перечислите диалоговые окна и вкладки, на которых появляются эти параметры.

  1. Запустите средство записи макросов.

  2. Посетите каждое диалоговое окно и вкладку, перечисленные в шаге 1.

  3. Измените один элемент в каждом диалоговом окне или вкладке. (Вы можете просто установить или снять флажок, если хотите.)

  4. Выключите рекордер макросов.

  5. Отредактируйте макрос, чтобы внести необходимые тонкие изменения. (Например, в примере макроса, приведенном ниже в этом совете, тонкая настройка включала перемещение параметров и размещение их в алфавитном порядке.)

  6. Назовите макрос AutoExec.

Обратите внимание, что длина макроса может быть довольно большой, в зависимости от количества посещаемых вами диалоговых окон и вкладок. Следующий макрос, например, является примером такой «установки по умолчанию»

макрос, который был создан для использования в Word 2000. (Этот макрос включен только для иллюстрации; ваш макрос будет отличаться в зависимости от порядка, в котором вы посещаете диалоговые окна, и того, что вы хотите включить в макрос.)

Sub MyOptions()



RecentFiles.Maximum = 9     Languages(wdEnglishUS).SpellingDictionaryType = wdSpelling     Languages(wdEnglishUS).DefaultWritingStyle = "Formal"



With ActiveDocument         .ActiveWritingStyle(wdEnglishUS) = "Formal"

.ClickAndTypeParagraphStyle = "Normal"

.Compatibility(wdAlignTablesRowByRow) = False         .Compatibility(wdAutospaceLikeWW7) = False         .Compatibility(wdConvMailMergeEsc) = False         .Compatibility(wdDontAdjustLineHeightInTable) = True         .Compatibility(wdDontBalanceSingleByteDoubleByteWidth) = True         .Compatibility(wdDontULTrailSpace) = True         .Compatibility(wdDontUseHTMLParagraphAutoSpacing) = False         .Compatibility(wdExactOnTop) = False         .Compatibility(wdExpandShiftReturn) = True         .Compatibility(wdFootnoteLayoutLikeWW8) = False         .Compatibility(wdForgetLastTabAlignment) = False         .Compatibility(wdLayoutRawTableWidth) = False         .Compatibility(wdLayoutTableRowsApart) = False         .Compatibility(wdLeaveBackslashAlone) = True         .Compatibility(wdLineWrapLikeWord6) = False         .Compatibility(wdMWSmallCaps) = False         .Compatibility(wdNoColumnBalance) = False         .Compatibility(wdNoExtraLineSpacing) = False         .Compatibility(wdNoLeading) = False         .Compatibility(wdNoSpaceForUL) = True         .Compatibility(wdNoSpaceRaiseLower) = False         .Compatibility(wdNoTabHangIndent) = False         .Compatibility(wdOrigWordTableRules) = False         .Compatibility(wdPrintBodyTextBeforeHeader) = False         .Compatibility(wdPrintColBlack) = False         .Compatibility(wdShapeLayoutLikeWW8) = False         .Compatibility(wdShowBreaksInFrames) = False         .Compatibility(wdSpacingInWholePoints) = False         .Compatibility(wdSubFontBySize) = False         .Compatibility(wdSuppressBottomSpacing) = True         .Compatibility(wdSuppressSpBfAfterPgBrk) = True         .Compatibility(wdSuppressTopSpacing) = True         .Compatibility(wdSuppressTopSpacingMac5) = False         .Compatibility(wdSwapBordersFacingPages) = False         .Compatibility(wdTransparentMetafiles) = False         .Compatibility(wdTruncateFontHeight) = False         .Compatibility(wdUsePrinterMetrics) = False         .Compatibility(wdWPJustification) = False         .Compatibility(wdWPSpaceWidth) = False         .Compatibility(wdWrapTrailSpaces) = False         .Compatibility(wdWW6BorderRules) = False         .EmbedTrueTypeFonts = False         .OptimizeForWord97 = False         .Password = ""

.PrintFormsData = False         .PrintPostScriptOverText = False         .ReadOnlyRecommended = False         .SaveFormsData = False         .SaveSubsetFonts = False         .ShowGrammaticalErrors = True         .ShowSpellingErrors = True         .WritePassword = ""

End With

With ActiveWindow         .DisplayHorizontalScrollBar = True         .DisplayLeftScrollBar = False         .DisplayRightRuler = False         .DisplayScreenTips = True         .DisplayVerticalScrollBar = True         .StyleAreaWidth = InchesToPoints(0)

With .View             .Draft = False             .FieldShading = wdFieldShadingAlways             .ShowAll = False             .ShowAnimation = True             .ShowBookmarks = True             .ShowDrawings = True             .ShowFieldCodes = False             .ShowHiddenText = False             .ShowHighlight = True             .ShowHyphens = False             .ShowObjectAnchors = False             .ShowParagraphs = False             .ShowPicturePlaceHolders = False             .ShowSpaces = False             .ShowTabs = False             .ShowTextBoundaries = False             .WrapToWindow = False         End With     End With

With Application     .DisplayRecentFiles = True     .DisplayStatusBar = True     .DefaultSaveFormat = ""

.UserName = "User Name"

.UserInitials = "User Initials"

.UserAddress = "User Name" & Chr(13) & Chr(10) & _         "Street Address" & Chr(13) & Chr(10) & "City, State zip"

End With

With CustomDictionaries         .ClearAll         .Add("C:\WINDOWS\Application Data\Microsoft\Proof\CUSTOM.DIC"). _             LanguageSpecific = False         .ActiveCustomDictionary = CustomDictionaries.Item( _             "C:\WINDOWS\Application Data\Microsoft\Proof\CUSTOM.DIC")

End With

With Options         .AllowAccentedUppercase = False         .AllowClickAndTypeMouse = False         .AllowCombinedAuxiliaryForms = True         .AllowCompoundNounProcessing = True         .AllowDragAndDrop = True         .AllowFastSave = False         .AllowPixelUnits = False         .AnimateScreenMovements = False         .ApplyFarEastFontsToAscii = False         .AutoKeyboardSwitching = False         .AutoWordSelection = False         .BackgroundSave = True         .BlueScreen = False         .CheckGrammarAsYouType = False         .CheckGrammarWithSpelling = False         .CheckSpellingAsYouType = False         .ConfirmConversions = False         .CreateBackup = False         .DefaultFilePath(Path:=wdDocumentsPath) = "C:\My Documents"

.DefaultTray = "Use printer settings"

.DeletedTextColor = wdBlue         .DeletedTextMark = wdDeletedTextMarkStrikeThrough         .EnableMisusedWordsDictionary = True         .EnableSound = False         .IgnoreInternetAndFileAddresses = True         .IgnoreMixedDigits = False         .IgnoreUppercase = False         .InsertedTextColor = wdRed         .InsertedTextMark = wdInsertedTextMarkUnderline         .INSKeyForPaste = False         .InterpretHighAnsi = wdHighAnsiIsHighAnsi         .MapPaperSize = True         .MeasurementUnit = wdInches         .OptimizeForWord97byDefault = False         .Overtype = False         .Pagination = True         .PictureEditor = "Microsoft Word"

.PrintBackground = False         .PrintComments = False         .PrintDraft = False         .PrintDrawingObjects = True         .PrintFieldCodes = False         .PrintHiddenText = False         .PrintProperties = False         .PrintReverse = False         .ReplaceSelection = True         .RevisedLinesColor = wdViolet         .RevisedLinesMark = wdRevisedLinesMarkOutsideBorder         .RevisedPropertiesColor = wdGreen         .RevisedPropertiesMark = wdRevisedPropertiesMarkNone         .RTFInClipboard = True         .SaveInterval = 10         .SaveNormalPrompt = True         .SavePropertiesPrompt = True         .SendMailAttach = True         .ShortMenuNames = False         .ShowReadabilityStatistics = False         .SmartCutPaste = True         .SuggestFromMainDictionaryOnly = False         .SuggestSpellingCorrections = True         .TabIndentKey = False         .UpdateFieldsAtPrint = True         .UpdateLinksAtOpen = True         .UpdateLinksAtPrint = True         .VirusProtection = False         .WPDocNavKeys = False         .WPHelp = False     End With

End Sub

_Примечание: _

Если вы хотите знать, как использовать макросы, описанные на этой странице (или на любой другой странице на сайтах WordTips), я подготовил специальную страницу, содержащую полезную информацию.

link: / wordribbon-WordTipsMacros [Щелкните здесь, чтобы открыть эту специальную страницу в новой вкладке браузера].

WordTips — ваш источник экономичного обучения работе с Microsoft Word.

(Microsoft Word — самая популярная программа для обработки текстов в мире.) Этот совет (642) относится к Microsoft Word 97, 2000, 2002 и 2003.