Word VisualBasic Script

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