****************

*********************

follow code → result → Part1-1

***********************************

Help me

Hope get configuration name p2

***********************************

Private Sub llll()

  Dim SwApp As SldWorks.SldWorks, SwModel As ModelDoc2

    Set SwApp = Application.SldWorks

    Set SwModel = SwApp.ActiveDoc

    Debug.Print SwModel.GetTitle

    Set swSelMgr = SwModel.SelectionManager

    Dim SwComp As Component2

    Set SwComp = swSelMgr.GetSelectedObjectsComponent(1)

    Set swFeat = SwModel.FeatureByName(SwComp.Name2)

    Debug.Print swFeat.Name

    Stop

End Sub