Ao send branch by subtopic.mmbas

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