home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / WordProcessors / FWARexx1.lha / FWMacros / Text2Block.rexx < prev   
Encoding:
OS/2 REXX Batch file  |  1994-06-15  |  1.4 KB  |  89 lines
  1. /* Text2Block 1.0 (11.05.94) by NDY's */
  2. OPTIONS RESULTS
  3. /* Decimal point */
  4. GetDocItemPrefs "DECIMAL"
  5. deci=RESULT
  6. DocItemPrefs "DECIMAL PERIOD"
  7. /* For cursor movement */
  8. ShiftUp
  9. AltUp
  10. CtrlUp
  11. /* Selected text or current paragraph? */
  12. Status "PARAPOS"
  13. pos=RESULT
  14. IF Words(pos)=4 THEN
  15.   DO
  16.     Extract
  17.     len=Length(RESULT)
  18.     IF C2X(Right(RESULT,1))="0A" THEN len=len-1
  19.     MoveToPara Word(pos,1) Word(pos,2)
  20.   END
  21. ELSE
  22.   DO
  23.     Status "PARACHARS"
  24.     len=RESULT
  25.     MoveToPara Word(pos,1) 0
  26.   END
  27. /* Get page # */
  28. Status 'PAGE "INSERT"'
  29. page=RESULT
  30. /* Process chars */
  31. old=gettexttypespecs()
  32. text=""
  33. w=0
  34. nr=0
  35. x=""
  36. DO i=0 TO len
  37.   specs=gettexttypespecs()
  38.   IF specs=old THEN
  39.     text=text||x
  40.   ELSE
  41.     DO
  42.       CALL draw
  43.       GetObjectCoords
  44.       w=w+Word(RESULT,4)
  45.       text=x
  46.       old=specs
  47.     END
  48.   Extract
  49.   x=RESULT
  50.   Cursor "RIGHT"
  51. END
  52. IF text~="" THEN
  53.   DO
  54.     old=specs
  55.     CALL draw
  56.   END
  57. /* Group */
  58. SelectObject
  59. DO i=1 TO nr
  60.   SelectObject obj.i "MULTIPLE"
  61. END
  62. Group
  63. Redraw
  64. DocItemPrefs "DECIMAL" deci
  65. EXIT
  66.  
  67. PROC draw:
  68.   TextBlockTypePrefs old
  69.   DrawTextBlock page 1+w 1 '"'||text||'"'
  70.   CurrentObject
  71.   nr=nr+1
  72.   obj.nr=RESULT
  73. RETURN
  74. PROC gettexttypespecs: PROCEDURE /*  specs=gettexttypespecs() */
  75.   Status "FONTSIZE"
  76.   p="SIZE" RESULT
  77.   Status "FONTLEADING"
  78.   p=p "LEADING" RESULT
  79.   Status "FONTWIDTH"
  80.   p=p "WIDTH" RESULT
  81.   Status "FONTOBLIQUE"
  82.   p=p "OBLIQUE" RESULT
  83.   Status "FONTCOLOR"
  84.   p=p "COLOR" RESULT
  85.   Status "FONTNAME"
  86.   p=p "FONT" RESULT
  87. RETURN p
  88.  
  89.