Trong môi trường nhiều người dùng, người ta thường mong muốn thiết lập Word để nó có thể dễ dàng trở về trạng thái nguyên sơ, mặc định. Ví dụ: trong phòng máy tính hoặc trung tâm đào tạo, bạn có thể muốn đặt Word trở lại giá trị mặc định trước khi nhóm người tiếp theo đến và thực hiện thay đổi cấu hình của riêng họ.

Thật không may, không có công tắc nào bạn có thể ném để ngăn các thay đổi hoặc để thiết lập mọi thứ trở lại bình thường. (Có thể bạn sẽ không muốn ngăn các thay đổi, đặc biệt nếu bạn đang dạy mọi người cách tùy chỉnh Word.) Cách tiếp cận gần nhất là sử dụng công tắc dòng lệnh / a để khởi động Word. Theo hệ thống Trợ giúp trực tuyến, công tắc này khiến Word “ngăn phần bổ trợ và các mẫu chung (bao gồm cả mẫu Thường) được tải tự động.” Nó cũng “ngăn không cho các tệp thiết lập được đọc hoặc sửa đổi.” Nếu bạn muốn sử dụng công tắc này, chỉ cần làm theo các bước sau:

  1. Sử dụng trình duyệt trên máy tính để bàn (Windows, không phải Word), hiển thị thư mục chứa phím tắt được sử dụng để khởi động Word.

  2. Nhấp chuột phải vào biểu tượng lối tắt. Thao tác này sẽ hiển thị menu Ngữ cảnh cho lối tắt.

  3. Chọn tùy chọn Thuộc tính từ menu Ngữ cảnh. Thao tác này sẽ hiển thị hộp thoại Thuộc tính của lối tắt.

  4. Bấm vào tab Lối tắt. (Xem Hình 1.)

  5. Ở cuối trường Mục tiêu, hãy thêm nội dung sau: / a (Nếu có các dấu ngoặc kép xung quanh văn bản trong trường Mục tiêu, hãy đảm bảo bạn đặt / a bên ngoài dấu ngoặc kép. Ngoài ra, hãy đảm bảo có khoảng trắng trước chém.)

  6. Nhấp vào OK.

Lưu ý rằng cách tiếp cận này có nghĩa là bạn không bao giờ có thể sửa đổi Word và có các thay đổi “dính”. Nếu bạn cần cấu hình bắt đầu từ điều kiện không mặc định, thì cách tốt nhất là sử dụng macro AutoExec để đặt lại tất cả các tùy chọn có thể thiết lập của Word về mặc định của chúng. Macro chính xác để sử dụng sẽ khác, dựa trên phiên bản Word bạn đang sử dụng. Tuy nhiên, cách tiếp cận để sử dụng trong việc tạo macro có thể rất nhất quán. Tất cả những gì bạn cần làm là làm theo các bước chung sau:

  1. Lập danh sách (trên giấy) tất cả các tùy chọn bạn muốn thiết lập lại.

Chỉ cần liệt kê các hộp thoại và tab mà các tùy chọn đó xuất hiện.

  1. Khởi động trình ghi macro.

  2. Truy cập từng hộp thoại và tab bạn đã liệt kê ở bước 1.

  3. Thay đổi một mục trên mỗi hộp thoại hoặc tab. (Bạn có thể chỉ cần chọn và bỏ chọn một hộp kiểm, nếu bạn thích.)

  4. Tắt trình ghi macro.

  5. Chỉnh sửa macro để thực hiện bất kỳ thay đổi tinh chỉnh cần thiết nào. (Ví dụ: trong macro mẫu ở phần sau của mẹo này, việc tinh chỉnh liên quan đến việc di chuyển các tùy chọn xung quanh và đặt chúng theo thứ tự bảng chữ cái.)

  6. Đặt tên cho macro là AutoExec.

Bạn cần lưu ý rằng độ dài của macro có thể khá dài, tùy thuộc vào số lượng hộp thoại và tab bạn truy cập. Ví dụ: macro sau đây là một ví dụ về “đặt thành mặc định”

macro đã được tạo để sử dụng trong Word 2000. (Macro này chỉ được bao gồm cho mục đích minh họa; macro của bạn sẽ khác, dựa trên thứ tự mà bạn truy cập các hộp thoại và những gì bạn muốn đưa vào macro.)

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"

End Sub

_Lưu ý: _

Nếu bạn muốn biết cách sử dụng các macro được mô tả trên trang này (hoặc trên bất kỳ trang nào khác trên các trang WordTips), tôi đã chuẩn bị một trang đặc biệt bao gồm thông tin hữu ích.

WordTips là nguồn của bạn để đào tạo Microsoft Word hiệu quả về chi phí.

(Microsoft Word là phần mềm xử lý văn bản phổ biến nhất trên thế giới.) Mẹo này (642) áp dụng cho Microsoft Word 97, 2000, 2002 và 2003.