Option Explicit
'#Uses "language.MMBas" ' language file placed by installation script
Sub Main
	Dim Selection As Selection
	Dim Topic As Topic
	Set Selection = ActiveDocument.Selection
	Set Topic = Selection.PrimaryTopic
	If (Topic Is Nothing) Then
		Exit Sub
	End If
    If Topic.HasAttributesNamespace("http://schemas.mindjet.com/MindManager/GSMP/2003") Then
	   Topic.Attributes("http://schemas.mindjet.com/MindManager/GSMP/2003").DeleteAll
	End If

End Sub
