Sub strip_CC() Dim oDoc As PartDocument Set oDoc = ThisApplication.ActiveDocument 'Check to see if it is not a true content center part . otherwise bail out If oDoc.ComponentDefinition.IsContentMember = False Then ' Enable all commands and set the subtype to a standard part. oDoc.DisabledCommandTypes = 0 oDoc.SubType = "{4D29B490-49B2-11D0-93C3-7E0706000000}" ' Optionally clean up other Content Center related properties. On Error Resume Next oDoc.PropertySets.Item("Content Library Component Properties").Delete Dim DTPropSet As PropertySet Set DTPropSet = oDoc.PropertySets.Item("Design Tracking Properties") DTPropSet.Item("Catalog Web Link").Value = "" oDoc.Save End If End Sub