home *** CD-ROM | disk | FTP | other *** search
/ Global Amiga Experience / globalamigaexperience.iso / text_dtp / editor / turbotext / rexx / documentize.ttx < prev    next >
Text File  |  1995-07-10  |  1KB  |  45 lines
  1.  
  2. /** $VER: Documentize.ttx 2.0 (16.5.94)
  3.  **
  4.  ** Many word processors and desktop publishing programs require line feeds to
  5.  ** occur only at the end of paragraphs. Since TurboText is a text editor and
  6.  ** not a word processor, it terminates each line with a linefeed. This macro
  7.  ** will let you use TurboText to create documents for import into WORD
  8.  ** processors and DTP programs. Basically, it sets the right margin WAY out
  9.  ** and formats each block of text into one very long line. You can then save
  10.  ** the file and allow your word processor or DTP program to handle wrapping
  11.  ** the lines.
  12.  **
  13.  ** Written by Denny Atkin
  14.  ** Modified by Martin Taillefer
  15.  **/
  16.  
  17.  
  18. OPTIONS RESULTS
  19.  
  20.  
  21.   SetDisplayLock ON
  22.   SetInputLock ON
  23.  
  24.   SAY 'This may take a while on large files...'
  25.  
  26.   GetPrefs RightMargin
  27.   oldMargin = RESULT
  28.   GetPrefs DynamicMargin
  29.   dynMargin = RESULT
  30.   SetPrefs RightMargin 32000
  31.   SetPrefs DynamicMargin OFF
  32.  
  33.   MoveSOF
  34.   DO UNTIL RC ~= 0
  35.     FormatParagraph
  36.     MoveDown
  37.   END
  38.  
  39.   SetPrefs RightMargin oldMargin
  40.   SetPrefs DynamicMargin dynMargin
  41.   MoveSOF
  42.  
  43.   SetDisplayLock OFF
  44.   SetInputLock OFF
  45.