Dim wdDoc As Document Set wdDoc = Documents.Add With wdDoc ActiveWindow.Visible = False 'do processing here ActiveWindow.Visible = True End With