MACRO FootMess   !filename FOOTMESS    11/07/93
        ! This macro deletes all footnote frames and footnote tag names except "startpoint".
        ! It also deletes the "footnote data" frame
        CancelDefinedBlock
        SET SelectedFrame TO "footnote data"
        SET c TO TableRows
        SET TableCurrentRow TO 1
        CursorHome
        TableCellRight
        TableCellRight
REPEAT
        SET c TO c - 1
        DefineToWordEnd
        ClearClipboard
        CopyToClipboard
        CancelDefinedBlock
        SET a TO PastedClipboard
        EXIT WHEN a = "0"
        SET b TO "footnote"+a
        DeleteLinkTag a
        DeleteLinkTag b
        SET SelectedFrame TO a
        DeleteFrame
        SET SelectedFrame TO "footnote data"
        TableCellDown
        EXIT WHEN c = 1
END REPEAT
        Set SelectedFrame TO "footnote data"
        DeleteFrame
        DeleteLinkTag "footnote data"
END MACRO
