Sub OpenMySize() ' Paul Beverley - Version 02.11.21 ' Opens the window to a particular size, position and magnification myZoom = 170 myZoom = 200 extraLeft = 800 If ActiveDocument.ActiveWindow.WindowState = wdWindowStateMaximize Then ActiveDocument.ActiveWindow.WindowState = wdWindowStateNormal Application.Move Left:=1440 - extraLeft, Top:=2 Application.Resize Width:=1440 + extraLeft, Height:=800 ActiveWindow.ActivePane.View.Zoom.Percentage = myZoom Else ActiveDocument.ActiveWindow.WindowState = wdWindowStateNormal Application.Move Left:=1440, Top:=2 Application.Resize Width:=1440, Height:=800 ActiveDocument.ActiveWindow.WindowState = wdWindowStateMaximize ActiveWindow.ActivePane.View.Zoom.Percentage = myZoom End If With ActiveWindow.View.RevisionsFilter .Markup = wdRevisionsMarkupAll .View = wdRevisionsViewFinal End With End Sub