Utilizamos cookies propias y de terceros para mejorar la experiencia de navegación, y ofrecer contenidos y publicidad de interés. Al continuar con la navegación entendemos que se acepta nuestra política de cookies.
owordref.&APPSHOW_WORDUS &&added 8/17 for Word 7.0 support owordref.&FILENEW_WORDUS cuenta=0 do while not eof() if cuenta<=bd_ltaux.im_linea if cuenta+1<>bd_ltaux.im_linea for x=cuenta to bd_ltaux.im_linea-1 oWordRef.Insert(CRLF) next x endif cuenta=bd_ltaux.im_linea DO CASE CASE ALLTRIM(bd_ltaux.IM_ESCCAR1) = ALLTRIM(NEGRITA) MITAMA=8.7 MIFORMA='B' MILETRA='Courier New' CASE ALLTRIM(bd_ltaux.IM_ESCCAR1) = ALLTRIM(GRANDE) MITAMA=16 MIFORMA='B' MILETRA='Courier New' CASE ALLTRIM(bd_ltaux.IM_ESCCAR1) = ALLTRIM(PEQUENIA) MILETRA='UNIVERS' MIFORMA='N' MITAMA=6 OTHERWISE MILETRA='Courier New' MITAMA=8.7 MIFORMA='N' ENDCASE do case case miforma='B'