home *** CD-ROM | disk | FTP | other *** search
/ Merciful 3 / Merciful_Release_3.bin / software / f / finalwriter / finalwriterv5.03h.dms / finalwriterv5.03h.adf / FWMacros.lha / TxtLeading_Decr < prev    next >
Text File  |  1993-10-25  |  578b  |  26 lines
  1. /* ================================================= */
  2. /* Set current paragraph to variable spacing and     */
  3. /*   decrease leading by 1 point.                    */
  4. /* FinalWriter macro written by Ric Fischer - 7/7/93 */
  5. /* $VER: TxtLeading_Decr 3.0 (22.7.93)               */
  6. /* ================================================= */
  7.  
  8. Options Results
  9.  
  10. Status ParaPos
  11. IF (Words(Result) > 2) THEN DO
  12.  
  13.    Status Spacing
  14.  
  15.    IF (Result ~= "Variable") THEN
  16.       Spacing Variable
  17.  
  18.    Status FontLeading
  19.  
  20.    Result = Result - 1
  21.  
  22.    IF ( Result >= 4 ) THEN
  23.       Leading Result
  24.  
  25. END
  26.