Ao toggle list.mmbas

'ao_toggle_list 07Sep07 http://creativecommons.org/licenses/by-sa/2.5/ http://www.activityowner.com Sub Main s=ActiveDocument.Selection.PrimaryTopic.Text l="(list)" If InStrRev(s,l) Then s=Replace(s,l,"") Else s=s & l	End If	ActiveDocument.Selection.PrimaryTopic.Text=s End Sub