home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / WordProcessors / DAT-WW5C.DMS / in.adf / Archive / WwRexx.lha / Convert_To_RTF.rexx next >
Encoding:
OS/2 REXX Batch file  |  1996-02-09  |  397 b   |  31 lines
  1. /*    Convert_To_RTF
  2.  
  3.         Converts a document to RTF format
  4.  
  5.         Digita ARexx Script for Wordworth 5
  6.         Copyright ©1996, Digita International Ltd.
  7.         
  8.         Created: 19 January 1996
  9.         Author:  MJ
  10. */
  11.  
  12.  
  13. OPTIONS RESULTS
  14.  
  15.  
  16. RequestFile TITLE "Select File to Convert to RTF"
  17. File = Result
  18.  
  19. If (RC > 0) THEN
  20.     Exit
  21.  
  22. New
  23. Address Value Result
  24.  
  25. Open FILENAME File
  26.  
  27. File = File || ".RTF"
  28.  
  29. SaveAs RTF NAME File
  30. Close FORCE
  31.