Dim oDoc As Document Set oDoc = Documents.Open(FileName:="C:\Path\Example.docx", Visible:=False) MsgBox oDoc.Name & " is not visible" oDoc.ActiveWindow.Visible = True MsgBox oDoc.Name & " is visible"