Mega Code Archive

 

Categories / VisualBasic Script / Word

 

Closing All Windows but the First for a Document

Sub close()     Dim myWin As Window, myDoc As String     myDoc = ActiveDocument.Name     For Each myWin In Windows         If myWin.Document = myDoc Then _             If myWin.WindowNumber <> 1 Then myWin.Close     Next myWin End Sub