Ao send branch by subtopic.mmbas

Sub Main For Each t In ActiveDocument.Selection.PrimaryTopic.AllSubTopics ActiveDocument.Selection.Set(t) MacroRun(GetPath(mmDirectoryMyMaps)&"AO/ao_send_branch.mmbas") Next End Sub