Macro to reset settings

Jennifer Murphy · #1 08-02-2012, 01:50 PM

Several inconsiderate programs, such as Acrobat and some PDF converters, change various Word settings and do not restore them. I am trying to write a macro to restore my settings the way I want them.

Using the recorder, I got this code, which seems to work. I have included the opposite settings as comments in case I change my mind.

Can anyone improve on this?

Code:

Sub MyStdSettings()
 
' Turn picture placeholders off (False)
' ActiveWindow.View.ShowPicturePlaceHolders = True
ActiveWindow.View.ShowPicturePlaceHolders = False
 
' Always show field shading
' ActiveWindow.View.FieldShading = wdFieldShadingNever
ActiveWindow.View.FieldShading = wdFieldShadingAlways
' ActiveWindow.View.FieldShading = wdFieldShadingWhenSelected
 
' Clear all formatting options
Selection.Find.ClearFormatting
 
' Show text boundaries
' ActiveWindow.View.ShowTextBoundaries = False
ActiveWindow.View.ShowTextBoundaries = True
 
End Sub

Then I remembered that I seem to turn tracking on by mistake and wanted to add that to the macro. But no matter whether I use Alt+T or the ribbon, the command the recorder stores in the macro is the same for turning tracking on or off:

ActiveDocument.TrackRevisions = Not ActiveDocument.TrackRevisions

What command can I use to always turn it off?

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Reset Animations	debraholloway	PowerPoint	0	07-14-2011 09:22 PM
Reset start page?	markg2	Excel	2	04-18-2010 06:54 AM
How To Reset The Defaults Settings	Mixman77	Office	0	01-16-2010 02:42 PM
Need to reset default document	Danny Jo	Word	1	07-06-2009 10:24 AM
Reset on error	kiwichico	Word VBA	0	09-23-2008 08:15 PM