Does anyone have a custom macro to remove object tip information from objects?

Made an assumption. Please correct if wrong. You can't actually delete 'object tips' as it is a built-in field (well, technically you could by some in-depth customizations but I digress). So I'm assuming you just want the value set to null for this field. The following macro should do this. Not it does this at the top level. What I mean is that if you have a group with an object tip it will clear that. But if you have additional object tips within that grouping it does not go that far. Possible, but it gets much more complicated.

Macro Remove_Object_Tips

    #Declare variables

    Define el as Element

    #Clear existing selection.

    Select None

    #Select all objects with object tips populated.

    Select if Object_tip is not equal to ""

    #Loops through objects removing object tips.

    el = ActiveDoc.firstSelectedElement

    While(exists(el) = True)

        el.info.tip = ""

        el = el.NextSibling

    End While

    #Clears selection.

        Select None

End Macro