Close and Save All Except Your Current Window

When you're working on large projects, it's common to have a bunch of open windows cluttering your desktop. Closing all the windows you're not working on is tedious. To automate this task, create a new macro and paste in this code:


Sub Closeallexceptcurrent()
        Dim i As Integer
        Dim sCurrWin As String = DTE.ActiveDocument.Name

        With DTE
             For i = .Documents.Count To 1 Step -1
                If .Documents.Item(i).Name <> sCurrWin Then
                    If Not .Documents.Item(i).Saved Then
                        .Documents.Item(i).Close(vsSaveChanges.vsSaveChangesYes)
                    Else
                        .Documents.Item(i).Close(vsSaveChanges.vsSaveChangesNo)
                    End If
                End If
            Next
        End With
   

End Sub

Sivaraj Padmaraj

Submit a Tip

Browse "Java" Tips

Browse All Tips

0 Comments (click to add your comment)

Comment and Contribute