Break All External References For Components

More 'Goodies'
How to create toolbar button for macro

---

This example will break all external references for all components in the active assembly.

Command to break all external references

Dim swApp As SldWorks.SldWorks
Dim swAssy As SldWorks.AssemblyDoc

Sub main()

    Set swApp = Application.SldWorks
    
    Set swAssy = swApp.ActiveDoc
    
    If Not swAssy Is Nothing Then
    
        swAssy.ResolveAllLightWeightComponents True
        
        Dim vComps As Variant
        Dim swComp As SldWorks.Component2
        Dim swCompModel As SldWorks.ModelDoc2
        
        vComps = swAssy.GetComponents(False)
        
        Dim i As Integer
        
        For i = 0 To UBound(vComps)
            Set swComp = vComps(i)
            Set swCompModel = swComp.GetModelDoc2
            If Not swCompModel Is Nothing Then
                swCompModel.Extension.BreakAllExternalFileReferences2 False
            End If
        Next
    Else
        MsgBox "Please open assembly"
    End If
     
End Sub