Tell VBA to remember user's View and Zoom Percentage settings

Matt C · #1 06-01-2021, 08:35 AM

Hi folks.

Just a quickie. The code below is a quick fix for Word 2003's notorious "tiny cursor" error which sometimes arises.

Is there any way of amending this so that VBA remembers the user's view settings (e.g. Print View, Reading View) and the current zoom percentage, and restores them after the quick zoom to 500%?

Currently, this works for my own personal settings (Print View, Zoom 120%) but I'm mindful that I may wish to share the template with other users who have their own settings.

Quote:

Sub WindowViewSettings()
'
'Macro to fix occasional "tiny cursor" error

With ActiveWindow.View
.Type = wdPrintView 'Print Layout View
.Zoom.Percentage = 500 'Fix tiny cursor bug in Word 2003
.Zoom.Percentage = 120 'Specify user's percentage
End With

End Sub

Thanks, peeps.

Guessed · #2 06-01-2021, 03:42 PM

The usual way to do it is store the current setting in a variable and then use it afterwards

Code:

Sub WindowViewSettings()
'Macro to fix occasional "tiny cursor" error
  With ActiveWindow.View
    .Type = wdPrintView 'Print Layout View
    iPref = .Zoom.Percentage
    .Zoom.Percentage = 500 'Fix tiny cursor bug in Word 2003
    .Zoom.Percentage = iPref 'Specify user's percentage
  End With
End Sub

Thread Tools
Show Printable Version Email this Page
Display Modes
Switch to Linear Mode Hybrid Mode Switch to Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Setting default View-Zoom level	ewormuth	Word	4	06-02-2019 02:49 PM
Export/import view settings of MS Outlook	ccc	Outlook	0	06-06-2012 07:23 PM
Change User Settings Globally within an Office.	Welshie82	Word	0	10-24-2011 07:56 AM
User Defined Default Settings in Insert	J_oe	Word	1	02-17-2011 10:55 AM
Outlook doesn't remember junk settings	djames1958	Outlook	1	10-17-2010 06:13 AM