Applies to all versions of Word on PC and Mac later than Word 2008. Won't work on the web versions, they have no macros.
Many of us (those of us with jobs!) frequently experience the problem where we sit down at a computer and things are not set up the way we need (or like!) them. This problem will only get worse: no company can afford the level of IT skill it takes to fully understand all the various settings across the Microsoft Office suite, let alone how to set them appropriately for each operating system, country, region, and job-description in the company. Trying to explain what you need to the out-sourced support contractor in Bangalore can quickly produce insanity.
The simplest way to handle this is to carry a copy of your Normal.dotm template with you on a USB stick, and copy it in to whichever computer you happen to use today. And that's what many of us do. But it's not a complete solution, for two reasons: often, the working copy of Normal.dotm on the computer is out of your reach due to security considerations (or ignorance.) and Normal.dotm does not contain all of the settings you need.
The macros presented here offer a solution. Hit Alt + F11 (Option + F11 on the Mac), paste the code below, Save, Close, and re-start Word. Simples :-)
MS Word - Software is suddenly overwriting my text with a random other word and numbers. Not sure what category to post this in. I have a word that crops up a lot in the long document I am writing, and suddenly as I open the document today, that word is appearing in place of other words, and is also preceded and followed by a couple of. I have recently just switched to a mac and there is no insert key 'Nooooooo' (in epic defeated villain voice). I really love the overtype feature for filling out forms created with Word. The 'overwrite' feature in Word does the exact opposite of 'insert'.When 'overwrite' is enabled, you can still go back and edit text, however instead of inserting text, you'll now overwrite existing text (i.e., replace existing text with new text).
Not a 'perfect' solution mind you: there are some settings missing, such as spelling language and document defaults. We're working on those and we will update this article when we find a robust solution.
Your two authors do this stuff for a living: John McGhie is a consultant technical writer who has led a nomadic existance since 1986, going from company to company and project to project. Rich Michaels owns a software development company producing learning solutions for PC and Mac. John is older and grumpier than Rich, but not by much!
Difficulty Level: Medium
OK, just a word to the wise: you are about to start playing with computer code. That's like editing an important document close to deadline: you need a clear idea of what you are about to do, and you need to work slowly, carefully, and very very accurately. If you don't, you WILL break your computer, and potentially have to call the nice lady in Bangalore who can't speak English very well.
So please read this slowly and carefully before attempting it. We will very carefully talk you through it: but if you are the kind of person for whom 'computers are someone else's problem, if they don't work I call support!' then you really should ask IT Support to help you with this :-)
What We Are Doing
We are about to paste some macros into the Normal.dotm master template.
The macros will almost instantly check every setting in Word, and put any right that are different to what you want.
These macros will run automatically whenever Word starts up, whenever it creates a new document, or whenever it opens a document (they must be stored in the Normal.dotm for this to work reliably).
Some Assembly Required, Batteries Not Included
Before you can use this code, you need to customise parts of it for your own use. For example: you need to customise your user name, your initials, and your address. The parts you need to customise are highlighted.
We are currently writing another article to tell you what each of the settings actually do, so you can decide which ones you need.
You also need to understand some simple things about this code, it has features that are actually quite rare in most VBA:
The Non-Breaking Spaces Bug
Importing the Code
In all versions of Word except Mac Word 2016, you can simply open the Visual Basic Editor (Alt + F11 or Option + F11) and from its File menu, choose 'Import' then select the file you downloaded. If you get an error, chances are the module 'AutoMacros' already exists in your Normal.dotm. Change its name and try again.
For Mac Word 2016 Only
Mac Word 2016 does not have an Import command, so do the following:
Compile the Code
Once you have the code in there, you need to check that all has transferred properly.
First, scroll the code and look for any lines that have turned entirely red. That indicates a syntax error in the line. Don't get confused: Visual Studio marks user variables in red; but a compile error turns the whole line red.
The proper way to check the code is to go to the Debug menu is the Visual Basic Editor and choose 'Compile Normal'. The first error found in the code will be highlighted and an error dialog will appear which will tell you what is wrong.
In Word Mac 2016, sadly there is no Debug menu. The best you can do is to click in the line that reads Sub SetToolsOptions() then attempt to run the code. Before Word can run the code it must first compile it, and any errors will produce the same result.
Either way, if there are any errors, you need to resolve them. Keep fixing until there are no errors, because the code won't work at all until it's clean.
The Code
The following is just a 'picture' of the code to show you what it should look like when it is all compiled. You could copy from here, but it is much easier to click this link to download the .bas file. Mac font for text editor.
Sub AutoExec()
Application.OnTime When:=Now + TimeValue('00:00:03'), Name:='SetToolsOptions'
EndSub
Sub AutoOpen()
Application.OnTime When:=Now + TimeValue('00:00:02'), Name:='SetToolsOptions'
EndSub
Sub AutoNew()
Application.OnTime When:=Now + TimeValue('00:00:02'), Name:='SetToolsOptions'
EndSub
Sub SetToolsOptions()
' Corrects Word Defaults
' Macro written January 2016 by Rich Michaels and John McGhie
'
If Application.Documents.Count > 0 Then
With Application
'for all PC versions and Mac 2011 & 2016
If .DisplayRecentFiles <> TrueThen .DisplayRecentFiles = True
If .UserName <> 'John McGhie'Then .UserName = 'John McGhie'
If .UserInitials <> 'JGM'Then .UserInitials = 'JGM'
If .UserAddress <> 'Then .UserAddress = '
#If Mac Then
'for only Mac 2011 and 2016
If .DefaultSaveFormat <> 'WordDocument' Then .DefaultSaveFormat = 'WordDocument'
#Else
'for all PC versions
#EndIf
#If MAC_OFFICE_VERSION >= 15 Then
'do nothing for Mac 2016
#Else
'for all PC versions and Mac 2011 only
If .DisplayStatusBar <> TrueThen .DisplayStatusBar = True
#EndIf
#If Mac Then
'do nothing for either Mac 2011 or 2016
#Else
'for all PC versions only
If .ShowWindowsInTaskbar <> TrueThen .ShowWindowsInTaskbar = True
If .ShowStartupDialog <> FalseThen .ShowStartupDialog = False
#EndIf
EndWith
With ActiveWindow
#If Mac Then
'do nothing with Mac 2011 and 2016
#Else
'for all PC versions only
If .DisplayLeftScrollBar <> FalseThen .DisplayLeftScrollBar = False
If .DisplayRightRuler <> FalseThen .DisplayRightRuler = False
#EndIf
'for all PC versions and Mac 2011 & 2016
If .DisplayHorizontalScrollBar <> TrueThen .DisplayHorizontalScrollBar = True
If .DisplayVerticalScrollBar <> TrueThen .DisplayVerticalScrollBar = True
If .StyleAreaWidth <> 0 Then .StyleAreaWidth = 0
If .DisplayVerticalRuler <> TrueThen .DisplayVerticalRuler = True
If .DisplayScreenTips <> TrueThen .DisplayScreenTips = True
With .View
If .Draft <> FalseThen .Draft = False
If .WrapToWindow <> TrueThen .WrapToWindow = True
If .ShowPicturePlaceHolders <> FalseThen .ShowPicturePlaceHolders = False
If .ShowFieldCodes <> FalseThen .ShowFieldCodes = False
If .ShowBookmarks <> FalseThen .ShowBookmarks = False
If .FieldShading <> Word.WdFieldShading.wdFieldShadingAlways Then
.FieldShading = Word.WdFieldShading.wdFieldShadingAlways
EndIf
If .ShowTabs <> FalseThen .ShowTabs = False
If .ShowSpaces <> FalseThen .ShowSpaces = False
If .ShowParagraphs <> FalseThen .ShowParagraphs = False
If .ShowHyphens <> FalseThen .ShowHyphens = False
If .ShowHiddenText <> FalseThen .ShowHiddenText = False
If .ShowAll <> TrueThen .ShowAll = True
If .ShowDrawings <> TrueThen .ShowDrawings = True
If .ShowObjectAnchors <> FalseThen .ShowObjectAnchors = False
If .ShowTextBoundaries <> TrueThen .ShowTextBoundaries = True
If .ShowHighlight <> TrueThen .ShowHighlight = True
If .RevisionsMode <> Word.WdRevisionsMode.wdBalloonRevisions Then
.RevisionsMode = Word.WdRevisionsMode.wdBalloonRevisions
EndIf
If .RevisionsBalloonShowConnectingLines <> TrueThen
.RevisionsBalloonShowConnectingLines = True
EndIf
If .RevisionsBalloonSide <> Word.WdRevisionsBalloonMargin.wdRightMargin Then
.RevisionsBalloonSide = Word.WdRevisionsBalloonMargin.wdRightMargin
EndIf
If .RevisionsBalloonWidthType <> Word.WdRevisionsBalloonWidthType.wdBalloonWidthPoints Then
.RevisionsBalloonWidthType = Word.WdRevisionsBalloonWidthType.wdBalloonWidthPoints
EndIf
If .RevisionsBalloonWidth <> 156 Then .RevisionsBalloonWidth = 156
Word For Mac Overwrite Textedit
#If Mac Then
#If MAC_OFFICE_VERSION >= 15 Then
'for Mac 2016 only
If .DisplayPageBoundaries <> True Then .DisplayPageBoundaries = True
#Else
'do nothing with Mac 2011
#End If
#Else
'for all PC versions only
If .ShowAnimation <> TrueThen .ShowAnimation = True
If .DisplaySmartTags <> TrueThen .DisplaySmartTags = True
#EndIf
EndWith
'for all PC versions and Mac 2011 & 2016
With Application.Options
If .Pagination <> TrueThen .Pagination = True
If .WPHelp <> FalseThen .WPHelp = False
If .WPDocNavKeys <> FalseThen .WPDocNavKeys = False
If .ShortMenuNames <> FalseThen .ShortMenuNames = False
If .RTFInClipboard <> TrueThen .RTFInClipboard = True
If .BlueScreen <> FalseThen .BlueScreen = False
If .EnableSound <> FalseThen .EnableSound = False
If .ConfirmConversions <> FalseThen .ConfirmConversions = False
If .UpdateLinksAtOpen <> TrueThen .UpdateLinksAtOpen = True
If .SendMailAttach <> TrueThen .SendMailAttach = True
If .MeasurementUnit <> Word.WdMeasurementUnits.wdCentimeters Then
.MeasurementUnit = Word.WdMeasurementUnits.wdCentimeters
EndIf
If .AnimateScreenMovements <> TrueThen .AnimateScreenMovements = True
If .VirusProtection <> FalseThen .VirusProtection = False
Pages For Mac
If .ApplyFarEastFontsToAscii <> FalseThen .ApplyFarEastFontsToAscii = False
If .ReplaceSelection <> TrueThen .ReplaceSelection = True
If .AllowDragAndDrop <> TrueThen .AllowDragAndDrop = True
If .AutoWordSelection <> TrueThen .AutoWordSelection = True
If .INSKeyForPaste <> FalseThen .INSKeyForPaste = False
If .PasteSmartCutPaste <> TrueThen .PasteSmartCutPaste = True
If .AllowAccentedUppercase <> FalseThen .AllowAccentedUppercase = False
If .TabIndentKey <> TrueThen .TabIndentKey = True
If .Overtype <> FalseThen .Overtype = False
If .AllowClickAndTypeMouse <> FalseThen .AllowClickAndTypeMouse = False
If .PictureWrapType <> Word.WdWrapTypeMerged.wdWrapMergeInline Then
https://treeboost708.weebly.com/blog/word-for-mac-search-text-of-document. .PictureWrapType = Word.WdWrapTypeMerged.wdWrapMergeInline
EndIf
If .DisplayPasteOptions <> TrueThen .DisplayPasteOptions = True
If .FormatScanning <> FalseThen .FormatScanning = False
Overwriting Text Instead Of Inserting
If .SmartParaSelection <> TrueThen .SmartParaSelection = True
If .UpdateFieldsAtPrint <> TrueThen .UpdateFieldsAtPrint = True
If .UpdateLinksAtPrint <> TrueThen .UpdateLinksAtPrint = True
If .PrintBackground <> TrueThen .PrintBackground = True
If .PrintProperties <> FalseThen .PrintProperties = False
If .PrintFieldCodes <> FalseThen .PrintFieldCodes = False
If .PrintComments <> FalseThen .PrintComments = False
If .PrintHiddenText <> FalseThen .PrintHiddenText = False
If .PrintDrawingObjects <> TrueThen .PrintDrawingObjects = True
If .PrintDraft <> FalseThen .PrintDraft = False
If .PrintReverse <> FalseThen .PrintReverse = False
If .MapPaperSize <> FalseThen .MapPaperSize = False
If .PrintOddPagesInAscendingOrder <> FalseThen .PrintOddPagesInAscendingOrder = False
If .PrintEvenPagesInAscendingOrder <> FalseThen .PrintEvenPagesInAscendingOrder = False
If .BackgroundSave <> TrueThen .BackgroundSave = True
If .CreateBackup <> TrueThen .CreateBackup = True
If .SavePropertiesPrompt <> FalseThen .SavePropertiesPrompt = False
If .SaveInterval <> 10 Then .SaveInterval = 10
If .SaveNormalPrompt <> FalseThen .SaveNormalPrompt = False
If .WarnBeforeSavingPrintingSendingMarkup <> FalseThen .WarnBeforeSavingPrintingSendingMarkup = False
If .CheckSpellingAsYouType <> TrueThen .CheckSpellingAsYouType = True
If .CheckGrammarAsYouType <> TrueThen .CheckGrammarAsYouType = True
If .SuggestSpellingCorrections <> TrueThen .SuggestSpellingCorrections = True
If .SuggestFromMainDictionaryOnly <> FalseThen .SuggestFromMainDictionaryOnly = False
If .CheckGrammarWithSpelling <> TrueThen .CheckGrammarWithSpelling = True
If .ShowReadabilityStatistics <> FalseThen .ShowReadabilityStatistics = False
If .IgnoreUppercase <> TrueThen .IgnoreUppercase = True
If .IgnoreMixedDigits <> TrueThen .IgnoreMixedDigits = True
If .IgnoreInternetAndFileAddresses <> TrueThen .IgnoreInternetAndFileAddresses = True
If .AllowCombinedAuxiliaryForms <> TrueThen .AllowCombinedAuxiliaryForms = True
If .EnableMisusedWordsDictionary <> TrueThen .EnableMisusedWordsDictionary = True
If .UseGermanSpellingReform <> TrueThen .UseGermanSpellingReform = True
If .InsertedTextMark <> Word.WdInsertedTextMark.wdInsertedTextMarkUnderline Then
.InsertedTextMark = Word.WdInsertedTextMark.wdInsertedTextMarkUnderline
EndIf
If .InsertedTextColor <> Word.WdColorIndex.wdByAuthor Then .InsertedTextColor = Word.WdColorIndex.wdByAuthor
If .DeletedTextMark <> Word.WdDeletedTextMark.wdDeletedTextMarkStrikeThrough Then
.DeletedTextMark = Word.WdDeletedTextMark.wdDeletedTextMarkStrikeThrough
EndIf
If .DeletedTextColor <> Word.WdColorIndex.wdByAuthor Then .DeletedTextColor = Word.WdColorIndex.wdByAuthor Free converter spotify to mp3.
If .RevisedPropertiesMark <> Word.WdRevisedPropertiesMark.wdRevisedPropertiesMarkNone Then
.RevisedPropertiesMark = Word.WdRevisedPropertiesMark.wdRevisedPropertiesMarkNone
EndIf
If .RevisedPropertiesColor <> Word.WdColorIndex.wdByAuthor Then .RevisedPropertiesColor = Word.WdColorIndex.wdByAuthor
If .RevisedLinesMark <> Word.WdRevisedLinesMark.wdRevisedLinesMarkOutsideBorder Then
.RevisedLinesMark = Word.WdRevisedLinesMark.wdRevisedLinesMarkOutsideBorder
EndIf
If .RevisedLinesColor <> Word.WdColorIndex.wdAuto Then .RevisedLinesColor = Word.WdColorIndex.wdAuto
If .CommentsColor <> Word.WdColorIndex.wdByAuthor Then .CommentsColor = Word.WdColorIndex.wdByAuthor
#If Mac Then
'do nothing with Mac 2011 and 2016
#Else
'for all PC versions only
If .AllowPixelUnits <> FalseThen .AllowPixelUnits = False
If .AllowReadingMode <> FalseThen .AllowReadingMode = False Free download for text to speech ilonia english for mac.
If .InterpretHighAnsi <> Word.WdHighAnsiText.wdHighAnsiIsHighAnsi Then
.InterpretHighAnsi = Word.WdHighAnsiText.wdHighAnsiIsHighAnsi
EndIf
If .BackgroundOpen <> FalseThen .BackgroundOpen = False
If .AutoCreateNewDrawings <> FalseThen .AutoCreateNewDrawings = False
If .CtrlClickHyperlinkToOpen <> TrueThen .CtrlClickHyperlinkToOpen = True
If .AutoKeyboardSwitching <> FalseThen .AutoKeyboardSwitching = False
If .PromptUpdateStyle <> FalseThen .PromptUpdateStyle = False
If .ShowFormatError <> FalseThen .ShowFormatError = False
If .SmartCursoring <> TrueThen .SmartCursoring = True
Microsoft Word For Mac
If .PrintXMLTag <> FalseThen .PrintXMLTag = False
If .PrintBackgrounds <> FalseThen .PrintBackgrounds = False
If .LocalNetworkFile <> FalseThen .LocalNetworkFile = False
If .AllowFastSave <> FalseThen .AllowFastSave = False
If .DisableFeaturesbyDefault <> FalseThen .DisableFeaturesbyDefault = False
If .StoreRSIDOnSave <> TrueThen .StoreRSIDOnSave = True
If .ShowMarkupOpenSave <> TrueThen .ShowMarkupOpenSave = True
If .AllowCompoundNounProcessing <> TrueThen .AllowCompoundNounProcessing = True
If .RevisionsBalloonPrintOrientation <> Word.WdRevisionsBalloonPrintOrientation.wdBalloonPrintOrientationPreserve Then
.RevisionsBalloonPrintOrientation = Word.WdRevisionsBalloonPrintOrientation.wdBalloonPrintOrientationPreserve
EndIf
Visual Studio Overwriting Text
#EndIf
EndWith
'for all PC versions and Mac 2011 & 2016
With Application.ActiveDocument
If .PrintPostScriptOverText <> FalseThen .PrintPostScriptOverText = False
If .PrintFormsData <> FalseThen .PrintFormsData = False
If .ReadOnlyRecommended <> FalseThen .ReadOnlyRecommended = False
If .EmbedTrueTypeFonts <> FalseThen .EmbedTrueTypeFonts = False
If .SaveFormsData <> FalseThen .SaveFormsData = False
If .SaveSubsetFonts <> FalseThen .SaveSubsetFonts = False
If .ReadOnlyRecommended <> FalseThen .ReadOnlyRecommended = False
If .RemovePersonalInformation <> FalseThen .RemovePersonalInformation = False
If .RemoveDateAndTime <> FalseThen .RemoveDateAndTime = False
If .ShowGrammaticalErrors <> TrueThen .ShowGrammaticalErrors = True
If .ShowSpellingErrors <> TrueThen .ShowSpellingErrors = True
#If Mac Then
'do nothing with Mac 2011 and 2016
#Else
'for all PC versions only
If .DoNotEmbedSystemFonts <> TrueThen .DoNotEmbedSystemFonts = True
If .DisableFeatures <> FalseThen .DisableFeatures = False
If .EmbedSmartTags <> FalseThen .EmbedSmartTags = False
If .SmartTagsAsXMLProps <> FalseThen .SmartTagsAsXMLProps = False
If .EmbedLinguisticData <> FalseThen .EmbedLinguisticData = False
#EndIf
EndWith
End if
End Sub
WindowsMacWeb
Add page numbers to a header or footerWord For Mac Overwriting Text In Word
Change where the page number appears
Change appearance of page number
Word For MacAdd page numbers to a header or footer
Use the Page field code to insert page numbers
Tip: You might have to move some graphics or other elements in your header or footer to see the page numbers after you insert them.
Add page numbers to a header or footer
To see your header or footer with page numbers, go to View > Reading View.
For more info on page numbers, see Page numbering in Word. Comments are closed.
|
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |