How Can Delete Product Description With Macro

[Proportions]

I want to remove all unnecessary descriptions in the description section of the assembly files. I want it to do this for all sub-parts at once with a macro. Is this possible?
I have hundreds of sub parts.

Thank you!

 

[qiushui]

You can use recursion with a VBA macro to iterate through each Product in your assembly and clear its description property. Here is my code

Sub Main()
    Dim doc As ProductDocument
    Set doc = CATIA.ActiveDocument
    
    Dim rootPrd As Product
    Set rootPrd = doc.Product
    
    ClearDescription rootPrd
End Sub

Sub ClearDescription(prd As Product)
    prd.DescriptionInst = ""
    Dim subPrd As Product
    For Each subPrd In prd.Products
        ClearDescription subPrd
    Next
End Sub

 

[Proportions]

You can use recursion with a VBA macro to iterate through each Product in your assembly and clear its description property. Here is my code

Sub Main()
    Dim doc As ProductDocument
    Set doc = CATIA.ActiveDocument
   
    Dim rootPrd As Product
    Set rootPrd = doc.Product
   
    ClearDescription rootPrd
End Sub

Sub ClearDescription(prd As Product)
    prd.DescriptionInst = ""
    Dim subPrd As Product
    For Each subPrd In prd.Products
        ClearDescription subPrd
    Next
End Sub

That solution is awasome! Thank you so much!