Sub open() Dim myWindow As Window Set myWindow = Windows.Add(Window:=ActiveDocument.Windows(1)) End Sub