Graham,
You are on a roll. Everything you have posted in this thread has been spot on.
The only thing I would suggest (and it is the best I can think of at present) would be to add a Class module to pick up and re-center the page following a zoom change on re-entering the document:
Option Explicit
Dim oAppClass As New Class1
Sub AutoNew()
Set oAppClass.oApp = Word.Application
With ActiveWindow.ActivePane.View.Zoom
.PageColumns = 1
.Percentage = 35
End With
End Sub
Sub AutoOpen()
Set oAppClass.oApp = Word.Application
With ActiveWindow.ActivePane.View.Zoom
.PageColumns = 1
.Percentage = 35
End With
End Sub
Option Explicit
Public WithEvents oApp As Word.Application
Private Sub oApp_WindowSelectionChange(ByVal Sel As Selection)
Dim i As Long
With ActiveWindow.ActivePane.View.Zoom
i = .Percentage
.PageColumns = 1
.Percentage = i
End With
End Sub
I looked through the other change events and didn't see anything that might work better. Any thoughts.
Greg Maxey --- Visit my website at: http://gregmaxey.mvps.org/word\_tips.htm