Sub TheBook() ' Paul Beverley - Version 13.05.20 ' Loads two named files, and opens on screen at a given size and zoom Documents.Open FileName:="C:\MyFiles2\WIP\zzzTheBook\TheMacros.docx" ActiveDocument.ActiveWindow.WindowState = wdWindowStateNormal Application.Resize Width:=1000, Height:=500 Application.ActiveWindow.View.Zoom.Percentage = 160 Documents.Open FileName:="C:\MyFiles2\WIP\zzzTheBook\ComputerTools4Eds.docx" ActiveDocument.ActiveWindow.WindowState = wdWindowStateNormal Application.Resize Width:=1100, Height:=420 Application.ActiveWindow.View.Zoom.Percentage = 160 End Sub