home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 5 Edit / 05-Edit.zip / ftnote1.zip / FOOTMESS < prev    next >
Text File  |  1993-11-07  |  952b  |  32 lines
  1. MACRO FootMess   !filename FOOTMESS    11/07/93
  2.         ! This macro deletes all footnote frames and footnote tag names except "startpoint".
  3.         ! It also deletes the "footnote data" frame
  4.         CancelDefinedBlock
  5.         SET SelectedFrame TO "footnote data"
  6.         SET c TO TableRows
  7.         SET TableCurrentRow TO 1
  8.         CursorHome
  9.         TableCellRight
  10.         TableCellRight
  11. REPEAT
  12.         SET c TO c - 1
  13.         DefineToWordEnd
  14.         ClearClipboard
  15.         CopyToClipboard
  16.         CancelDefinedBlock
  17.         SET a TO PastedClipboard
  18.         EXIT WHEN a = "0"
  19.         SET b TO "footnote"+a
  20.         DeleteLinkTag a
  21.         DeleteLinkTag b
  22.         SET SelectedFrame TO a
  23.         DeleteFrame
  24.         SET SelectedFrame TO "footnote data"
  25.         TableCellDown
  26.         EXIT WHEN c = 1
  27. END REPEAT
  28.         Set SelectedFrame TO "footnote data"
  29.         DeleteFrame
  30.         DeleteLinkTag "footnote data"
  31. END MACRO
  32.