I want to select component by name for example Sub-assembly / part name contains " xxx" .
I managed to filter the components by its name (refer the code below). but I not able to select those components.
Anyone kindly help with this.
Thanks a lot.
Dim swApp As SldWorks.SldWorks Dim swModel As SldWorks.ModelDoc2 Dim swAssy As SldWorks.AssemblyDoc Dim vComps As Variant Dim swComp As SldWorks.Component2 Dim i As Integer Dim j As Integer Dim FileName As String Dim SearchString As String ' Enter the string here to find Const FindChar As String = "PD" Sub main() Set swApp = Application.SldWorks Set swModel = swApp.ActiveDoc Set swAssy = swModel swModel.ClearSelection2 True vComps = swAssy.GetComponents(False) For i = 0 To UBound(vComps) Set swComp = vComps(i) FileName = swComp.Name2 SearchString = FileName For j = 1 To Len(SearchString) If Mid(SearchString, j, 2) = FindChar Then swComp.Select2 True, -1 Debug.Print FileName End If Next j Next i End Sub