StrToWord

 PROCEDURE StrToWord( cString, lRepair )
   IF lRepair == NIL
     lRepair := .T.
   ENDIF
   IF CHR( 12 ) $ cString.OR.(;
     "Касса за пе"$cString.AND.;
     "Лист"$cString.AND.!"Лист    1"$cString) //в том числе для кассовой книги
     IF TYPE("lExtendFormat")=="L".AND.lExtendFormat //для расчетных листков
       cString:=STRTRAN(cString,CHR(12),CHR(13)+CHR(10))
       TOBUFFER(cString)
       WRITEBUFFER()
     ELSE
       WRITEBUFFER()
       oAs:INSERTBREAK()
     ENDIF
     cString:=STRTRAN(cString,CHR(12),"")
     IF EMPTY(cString)
       RETURN
     ENDIF
   ENDIF
   IF sFormat != NIL .AND. LEN( cString ) > LEN( sFormat ) + 1 .AND. lRepair
     cString := REPAIRFORTXT( cString )
   ENDIF
   IF TYPE("lExtendFormat")=="L".AND.lExtendFormat
     TOBUFFER(cString)
     WRITEBUFFER("NoCrLf")
     oAs:INSERTBREAK(wdLineBreak)
   ELSE
     TOBUFFER( cString + CHR( 13 ) + CHR( 10 ) )
   ENDIF
   RETURN