I would take TECHIE007's answer a step further, by adding the following code to a module in Normal.dotm:
Const FineZoom As Double = 5
Const CoarseZoom As Double = 25
Const MaxZoom As Double = 500
Const MinZoom As Double = 10
If .Zoom <= (MaxZoom - FineZoom) Then .Zoom = .Zoom + FineZoom
If .Zoom >= (MinZoom + FineZoom) Then .Zoom = .Zoom - FineZoom
If .Zoom <= (MaxZoom - CoarseZoom) Then .Zoom = .Zoom + CoarseZoom
If .Zoom >= (MinZoom + CoarseZoom) Then .Zoom = .Zoom - CoarseZoom
To do this, open a blank document in Word, and then:
- Open the VBA Editor by pressing Alt+F11
- Find "Normal" in the Project Explorer, right-click, then select 'Insert' and 'Module'
- Copy and paste the above code into the newly-created, blank code module.
- Save the VBA code (Ctrl+S) and close the VBA Editor
Using TECHIE007's instructions, I then would bind:
ZoomInCoarse to Ctrl+Shift+Numpad +
ZoomOutCoarse to Ctrl+Shift+Numpad -
ZoomInFine to Ctrl+Alt+Shift+Numpad +
ZoomOutFine to Ctrl+Alt+Shift+Numpad -
This form of the code allows a tunable rate of zoom, with automatic detection of zoom limits to avoid VBA runtime errors. If the fine and/or coarse zoom rates, or the zoom limits, are not to one's liking, they can readily be changed.
The behavior could be further customized by, e.g., adding macros that set particular favorite levels of zoom and binding shortcut keys.