Ao tree2note.mmbas

'14Feb2008 http://activityowner.com  http://creativecommons.org/licenses/by-nc-nd/3.0/ Sub Main If MsgBox("Convert tree to note and delete tree (pictures will be lost)?",vbYesNoCancel)=vbYes Then branches2note(ActiveDocument.Selection.PrimaryTopic) End If End Sub Function branches2note(ByRef t As Topic) As String Dim tt As Topic For Each tt In t.AllSubTopics branches2note(tt) t.Notes.TextXHTML = t.Notes.TextXHTML & tt.Text & tt.Notes.TextXHTML tt.Delete Next End Function