Close all open stencils in Visio

If you’re like me, you’ve probably got every stencil from every vendor always open in Visio. This macro code will close them all in one go.

Sub CloseAllStencils()

    'Enable diagram services
    Dim DiagramServices As Integer
    DiagramServices = ActiveDocument.DiagramServicesEnabled
    ActiveDocument.DiagramServicesEnabled = visServiceVersion140 + visServiceVersion150

    For Each doc In Application.Documents
        If doc.Type = visTypeStencil Then
            Debug.Print (doc.Name)
            doc.Close
        End If
    Next
    'Application.ActiveWindow.Windows.ItemEx("CCH-CP12-91").Close

    'Restore diagram services
    ActiveDocument.DiagramServicesEnabled = DiagramServices

End Sub