home *** CD-ROM | disk | FTP | other *** search
/ Merciful 3 / Merciful_Release_3.bin / software / c / cbsv2.0forfinalwriter.lha / cbs / fwmacros / html.Number.list < prev    next >
Text File  |  1996-05-01  |  2KB  |  68 lines
  1. /* ------------------------------------------------ */
  2. /* Final Writer Arexx Macro - Add HTML list Code    */
  3. /* This macro will Place list markers either side   */
  4. /* of text that is highlighted                      */
  5. /* $VER: HTML.number.list   Ver 2.0 (10.2.96)       */
  6. /* ------------------------------------------------ */
  7. Options Results
  8.  
  9. Status LinePos
  10.  
  11. Parse VAR Result BeginLine BeginPosition EndLine EndPosition
  12.  
  13. NextLine = BeginLine
  14. NextLine.1 = BeginLine
  15.  
  16. IF      ( WORDS(Result) = 2 ) THEN DO
  17.                 FontColor Red
  18.         NewParagraph
  19.                 Type "<OL>"
  20.         NewParagraph
  21.                 FontColor Red
  22.                 type "<LI>"
  23.                 FontColor Black
  24.                 type " "
  25.         NewParagraph
  26.                 FontColor Red
  27.                 type "<LI>"
  28.                 FontColor Black
  29.                 type " "
  30.         NewParagraph
  31.                 FontColor Red
  32.                 type "<LI>"
  33.                 FontColor Black
  34.                 type " "
  35.         NewParagraph
  36.                 FontColor Red
  37.         Type "</OL>"
  38.                 FontColor Black
  39.                 type " "
  40.         NewParagraph
  41.         MoveToLine BeginLine+2 5
  42.                 EXIT
  43.                 END     
  44.  
  45.     MoveToLine BeginLine 0
  46.     FontColor Red
  47.     Type "<OL>"
  48.     NewParagraph
  49.     DO WHILE (NextLine < EndLine) 
  50.         MoveToLine NextLine+1 0
  51.         FontColor Red
  52.         Type "<LI>"
  53.         FontColor Black
  54.         Type " "
  55.         NextLine = NextLine.1 +1
  56.         NextLine.1 = NextLine
  57.         END
  58.     MoveToLine NextLine+1 0
  59.     FontColor Red
  60.     Type "</OL>"
  61.     FontColor Black
  62.     Type " "
  63.     NewParagraph
  64.     NewParagraph
  65.     MoveToLine Beginline+1 5
  66.     EXIT
  67.         
  68.