Sub Test() Dim Wnd As Window If ActiveDocument.Windows.Count > 1 Then Set Wnd = ActiveDocument.Windows(1) Wnd.Close End IfEnd Sub