Ao toggle list.mmbas

From ActivityOwnerWiki
Jump to: navigation, search
'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