For Each vbComp As Microsoft.Vbe.Interop.VBComponent In _
  doc.VBProject.VBComponents
    With (vbComp)
        If .Type = 100 Then
            .CodeModule.DeleteLines(1, .CodeModule.CountOfLines)
        Else
            doc.VBProject.VBComponents.Remove(vbComp)
        End If
    End With
Next

For Each cb As Microsoft.Office.Core.CommandBar In doc.CommandBars
  For Each cont As Microsoft.Office.Core.CommandBarControl In cb.Controls
    If cont.BuiltIn = False Then
      cont.Delete()
    End If
  Next
  If cb.BuiltIn = False Then
    cb.Delete()
  End If
Next

doc.VBProject.VBE.Addins

I like to feed the Trolls. Luckily i know some good poison. Coniin preferred.