default view in Word 2004

[Jenn]

I work on many different computer systems (windows boxes and macs),
and the default view of 100% on one system/computer is sometimes too
small on another. If I change the view on the other system so I can
work, it seems that this view is saved with the file, so when I go
back to the original machine the view is set too large (the view of
the other machine).

Is there some way to make the default 100% view change to 175%? What
I mean is I want the 100% view to be the 175% instead of what it is
now (it's too small) and still read 100%. Yes, I know this is
picky.

Baring that, what preference do I set in Word so it automatically
opens every document in 175% (zoomed) view? I don't want this
preference saved with the document, though.


Thanks.

 

[JE McGimpsey]

Is there some way to make the default 100% view change to 175%? What
I mean is I want the 100% view to be the 175% instead of what it is
now (it's too small) and still read 100%. Yes, I know this is
picky.

AFAIK, that isn't possible.

Baring that, what preference do I set in Word so it automatically
opens every document in 175% (zoomed) view? I don't want this
preference saved with the document, though.

You can do this with an event macro in a global template, or add-in (see

http://word.mvps.org/MacWordNew/GlobalTemplate.htm

for more on add-ins). This sounds more complicated than it is, but if
you'd rather just download what I've written below, you can get it here:

ftp://ftp.mcgimpsey.com/word/Zoom175.dot

and put it in your

HD:Applications:Microsoft Office 2004:Office:Startup:Word

folder, then restart Word.

Here's the code:

Open a new document and save it *as a template* in the folder above,
using the name Zoom175.dot, or whatever else you desire.

Type OPT-F11 to enter the Visual Basic Editor. In the "Projects" window,
select your template. Choose Insert/Module and enter/paste the following:

Public clsWindowZoom As WindowZoom

Public Sub AutoExec()
Set clsWindowZoom = New WindowZoom
End Sub

Now, with your template still selected in the "Projects" window, choose
Insert/Class module. In the "Properties" window, rename the class module
to "WindowZoom".

In the WindowZoom class module, enter or paste this code:

Public WithEvents oApp As Word.Application
Public nNumDocs As Long

Private Sub Class_Initialize()
Set oApp = Application
End Sub

Private Sub oApp_DocumentChange()
Dim nCurrentDocs As Long
Dim bAddedDoc As Boolean

On Error GoTo Exit_Sub
nCurrentDocs = Application.Documents.Count
bAddedDoc = nCurrentDocs > nNumDocs
If bAddedDoc Then _
ActiveWindow.ActivePane.View.Zoom.Percentage = 175
nNumDocs = nCurrentDocs
Exit_Sub:
On Error GoTo 0
End Sub

Save the template (File/Save). Type OPT-F11 to return to Word. Close
Word, then restart it. Whenever you open a new or old file, the Zoom
will now be set to 175%.