Set "Fit Text Width" as default when opening Word Document

Question

I'm partially sighted and as such have difficutly reading word documents unless I set the zoom level to "Fit Text Width". I've been doing this manually and was wondering how I set it as the default zoom level for all documents when I open themT

Answer 1

This is more complicated than it sounds, the reason being is that there is no one default zoom that is used when a document is opened, rather each document is opened at the zoom that was set the last time it was edited (even with documents coming from other machines).

The next best thing would be to have a quick way to change the zoom settings to "fit text" for any document loaded, however for some reason this command is missing from the customize keyboard option menu where you can normally assign a key combination to a particular command. Instead you could use the built-in keyboard commands to make your way to the menu, Alt + W + Q + Arrow over to the correct option or setup a custom macro to do this and bind it to a keyboard shortcut:

Sub SetFitTextZoom()
    ActiveWindow.View.Zoom.PageFit = wdPageFitTextFit
End Sub

Answer 2

Adding new module with this two macros to a document template (as described here) seems to work for me:

Sub AutoOpen()
    ActiveWindow.View.Type = 3
    ActiveWindow.View.Zoom.PageFit = wdPageFitBestFit
End Sub

Sub AutoNew()
    ActiveWindow.View.Type = 3
    ActiveWindow.View.Zoom.PageFit = wdPageFitBestFit
End Sub

You should allow macros.
Office 2010