I used this code to break the revsion (A-01) into 2 parts (A and 01) and it's working fine. Instead of runing this code on each part,  I want to run on an assembly and break the revivsion of each part including in the assembly. I know this can be done but am not sure how  - Can someone help, please

Thx

Dim swApp As SldWorks.SldWorks

Dim swModel As SldWorks.ModelDoc2

Dim swCustPropMgr As SldWorks.CustomPropertyManager

Sub main()

    Set swApp = Application.SldWorks

    Set swModel = swApp.ActiveDoc

    Dim bProp As Boolean

    bProSp = swModel.AddCustomInfo3("", "Pri_Revision", swCustomInfoText, " ")

    bProp = swModel.AddCustomInfo3("", "Sec_Revision", swCustomInfoText, " ")

    Dim s1, s2, sPri_Rev, sSec_Rev As String

    s1 = swModel.CustomInfo2("", "Revision")    'MsgBox s1

    s2 = Split(s1, "-")

    sPri_Rev = s2(LBound(s2)) '    MsgBox sRevision

    sSec_Rev = s2(UBound(s2)) '    MsgBox sSec_Rev

    swModel.CustomInfo2("", "Pri_Revision") = sPri_Rev

    swModel.CustomInfo2("", "Sec_Revision") = sSec_Rev

End Sub