Ao tree2note.mmbas

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