I remember having a similar problem a while ago, not sure what it was that fixed it, but try adding this code before the 'Unprotect'
Quote:
If Activedocument.ActiveWindow.View.SplitSpecial = wdPaneNone Then
Activedocument.ActiveWindow.ActivePane.View.Type = wdPrintView
Else
Activedocument.ActiveWindow.View.Type = wdPrintView
End If
|