This may help you cleaning Drawing Resource up
Public Sub IDW_DelAllDrawingResources()
' If the active document is not a DRAWING , inform the user and stop the macro
msgPrm1 = " This Macro Only Works with Drawings Documents "
msgPrm2 = " Please open a Drawing "
msgTit = "Wrong Active Document Type"
Prm1 = Len(msgPrm1) + 4
Prm2 = Len(msgPrm2) + 4
Tit = Len(msgTit)
cmsgPrm2 = String((Prm1 - Prm2) / 2, Chr(32)) & msgPrm2
cmsgTit = String((Prm1 - Prm2) / 2, Chr(32)) & msgTit
'check if the active document is a drawing document
If ThisApplication.ActiveDocumentType = kDrawingDocumentObject Then
Dim oDoc As DrawingDocument
Set oDoc = ThisApplication.ActiveDocument
' If iNSTR(1,
' MsgBox "The Active Document is a Template this macro will terminate", vbExclamation, "Wrong Active Document Type"
'End If
Else
MsgBox msgPrm1 & Chr(13) & Chr(13) & cmsgPrm2, vbExclamation, cmsgTit
End If
Dim oPane As BrowserPane
Set oPane = oDoc.BrowserPanes.ActivePane
Dim oDocNode As BrowserNode
Set oDocNode = oPane.TopNode
Dim oDrawingResourceNode As BrowserNode
Set oDrawingResourceNode = oDocNode.BrowserNodes.Item("Drawing Resources")
Dim oSheetFormatsNode As BrowserNode
Set oSheetFormatsNode = oDrawingResourceNode.BrowserNodes.Item("Sheet Formats")
Dim oBordersNode As BrowserNode
Set oBordersNode = oDrawingResourceNode.BrowserNodes.Item("Borders")
Dim oTitleBlocksNode As BrowserNode
Set oTitleBlocksNode = oDrawingResourceNode.BrowserNodes.Item("Title Blocks")
Dim oSketchedSymbolsNode As BrowserNode
Set oSketchedSymbolsNode = oDrawingResourceNode.BrowserNodes.Item("Sketched Symbols")
' Loop thru each resource node
oDrawingResourceNode.DoSelect
oDrawingResourceNode.EnsureVisible
oDrawingResourceNode.Expanded = True
Dim oSheetFormatNode As BrowserNode
For Each oSheetFormatNode In oSheetFormatsNode.BrowserNodes
' Select the node in the browser.
oSheetFormatNode.DoSelect
oSheetFormatNode.Expanded = True
' Execute the delete command.
'Debug.Print oSheetFormatNode.FullPath
ThisApplication.CommandManager.ControlDefinitions.Item("AppDeleteCmd").Execute
Next
Dim oBorderNode As BrowserNode
For Each oBorderNode In oBordersNode.BrowserNodes
' Select the node in the browser.
oBorderNode.DoSelect
oBorderNode.Expanded = True
' Execute the delete command.
'Debug.Print oBorderNode.FullPath
ThisApplication.CommandManager.ControlDefinitions.Item("AppDeleteCmd").Execute
Next
Dim oTitleBlockNode As BrowserNode
For Each oTitleBlockNode In oTitleBlocksNode.BrowserNodes
' Select the node in the browser.
oTitleBlockNode.DoSelect
oTitleBlockNode.Expanded = True
' Execute the delete command.
'Debug.Print oTitleBlockNode.FullPath
ThisApplication.CommandManager.ControlDefinitions.Item("AppDeleteCmd").Execute
Next
Dim oSketchedSymbolNode As BrowserNode
For Each oSketchedSymbolNode In oSketchedSymbolsNode.BrowserNodes
' Select the node in the browser.
oSketchedSymbolNode.DoSelect
oSketchedSymbolNode.Expanded = True
' Execute the delete command.
'Debug.Print oSketchedSymbolNode.FullPath
ThisApplication.CommandManager.ControlDefinitions.Item("AppDeleteCmd").Execute
Next
'oDoc.Save
End Sub