Looking for someone to write me some code

[brendan.henderson]

I'm not smart enough to figure this out so I'm hoping someone can write this up for me 🙂

Basically I have a few custom iProps in IDW's that I need to delete. I know I can do it manually but it's tiresome on hundreds of drawings.

I'm thinking something like :-

If Custom iProperty "Not Needed" exists then delete it Else Next

If Custom iProperty "Also Not Needed" exists then delete it Else Next

And so on an so forth.

The list of iProps to delet is finite and I am comfortable copy/paste and change text in a macro (or iLogic) to replicate your working code to delete further iProps.

Thanks in advance.

[saseendrankombath · Accepted solution]

Public Sub Del_Custom_iProp()
    Dim oDoc As DrawingDocument
    Set oDoc = ThisApplication.ActiveDocument
    
    Dim oCustomset As PropertySet
    Set oCustomset = oDoc.PropertySets.Item("User Defined Properties")
    
    Dim oProp As Property
    For Each oProp In oCustomset
        If oProp.Name = "Not Needed" Or oProp.Name = "Also Not Needed" Then
            oProp.Delete
        End If
    Next
            
End Sub

[brendan.henderson]

Thank you saseendrankombath. That works perfectly.

[moosamalik213]

please can anyone write a code for me, for this please, anyone, if i don't write it within a month i will fail in my test