Opening a New Window Containing an Open Document
Sub open() Dim myWindow As Window Set myWindow = Windows.Add(Window:=ActiveDocument.Windows(1)) End Sub