Word VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Word
  4. 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