Dobrý den,

tohle by mělo stačit. Musí se procházet pomocí Do - Loop, protože jde o kolekci a každým odebráním parametru se zmenší počet, tak For - Next by nefungovalo.

Kód makra:

Sub CATMain()

Set oUserProp = CATIA.ActiveDocument.Product.UserRefProperties

On Error Resume Next ' osetreni chyby

Do 

   oUserProp.Remove(1) ' odebereme parametr

Loop Until oUserProp.Count = 0 ' skoncime, jakmile jsou vsechny parameTry odebrany

End Sub 

Smaže to ale úplně všechny. Kdybyste chtěl jen některé, vynechala by se smyčka a do závorky by se napsal název parametru. Řádek by se pak opakoval pro vybrané parametry.

Vyzkoušejte. U mě OK :-)