home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / WordProcessors / BK-WW6E3.DMS / in.adf / Archive / WwRexx.lha / Insert_File.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1996-02-09  |  550 b   |  47 lines
  1. /*    Insert_File
  2.  
  3.         Insert a given file into the current document at
  4.         the insertion point.
  5.  
  6.         Digita ARexx Script for Wordworth 5
  7.         Copyright ©1996, Digita International Ltd.
  8.         
  9.         Created: 19 January 1996
  10.         Author:  MJ
  11. */
  12.  
  13.  
  14. OPTIONS RESULTS
  15.  
  16.  
  17. WwPortName = Address()
  18.  
  19. GetFont
  20. OldFont = Result
  21.  
  22. GetFontSize
  23. OldFontSize = Result
  24.  
  25. RequestFile TITLE "Select File to Insert"
  26. File = Result
  27.  
  28. If (RC > 0) THEN
  29.     Exit
  30.  
  31. New
  32. Address Value Result
  33.  
  34. Open FILENAME File
  35.  
  36. SelectAll
  37.  
  38. Font NAME OldFont SIZE OldFontSize
  39.  
  40. Copy
  41.  
  42. Close FORCE
  43.  
  44. Address Value WwPortName
  45.  
  46. Paste
  47.