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