REM Copyright 1997 Sageline Publishing
REM Can be used freely but not published without
REM permission of Sageline Publishing (wgm@sageline.com)
Sub MAIN
button = MsgBox("This macro will put ALL $ footnotes in this document after their corresponding #footnotes, in one continuous operation . Continue?", \
"              Macro For Ordering #And $ Footnotes ", 36)
	If button = 0 Then Goto bye
StartOfDocument
EditFindClearFormatting	'Clear leftover formats
EditFind .Find = "$", .Direction = 0, \
	.WholeWord = 1, .MatchCase = 1, .Wrap = 0
While EditFindFound()
EditCut
CharRight 1, 1
	WhatChar$ = Selection$()
		While WhatChar$ = " "
		EditClear
		CharRight 1, 1
		WhatChar$ = Selection$()
		Wend
StartOfLine
EditFindClearFormatting	'Clear leftover formats
EditFind .Find = "#", .Direction = 0, \
	.WholeWord = 1, .MatchCase = 1, .Wrap = 0
CharRight 2
EditPaste
Insert " "
EditFindClearFormatting	'Clear leftover formats
EditFind .Find = "$", .Direction = 0, \
	.WholeWord = 1, .MatchCase = 1, .Wrap = 0
Wend
bye:
End Sub