REVO2700 Textutil@,k## Author : Christian Langers, Luxembourg ## christian.langers@education.lu ## to be used freely 4P 9 U Times-RomanU Times-RomanU Times-Roman U ComicSansMSU ComicSansMSW ComicSansMSU ComicSansMSW ComicSansMSW ComicSansMSU ComicSansMS WLucida Grande ULucida Grande U HelveticaU Helvetica UTimesNewRomanPSMTUTimesNewRomanPSMTUTimesNewRomanPSMTUTimesNewRomanPSMTWTimesNewRomanPSMT U DrockschreftU DrockschreftU DrockschreftU DrockschreftU DrockschreftU Times-RomanW Times-RomanW Times-Roman UHelveticaNeueUHelveticaNeueWHelveticaNeueU Times-RomanW Times-RomanU Times-Roman UArialUnicodeMSUArialUnicodeMSUArialUnicodeMS,Unicode UArialMTUArialMTWArialMTUArialMTUArialMTUArialMTUArialUnicodeMS UArialUnicodeMS,UnicodeUArialUnicodeMS,UnicodeUArialUnicodeMS UArialMT WArialMT U Times-Roman UArialMT WArialMTWArialMTUArialMTWArialMT UACaslonPro-RegularUACaslonPro-RegularUACaslonPro-RegularcREVGeometryCachestackID1010 cREVGeneral revUniqueID 1264840393857stackfileversion2.7 P^function escapeText pText replace space with "\ " in pText return pText end escapeText ,cREVGeometryCacheIDs12524113721141010125240794387710071252410084570100812524079343701004cREVGeometrycacheorder1252407934370 total4 cREVGeneral revUniqueID 1252411731288 Field)` ,~ cREVGeometryMaster,scaleBottomObjectSideBottomMaster,movehDistancefalseMastertrueMaster,scaleBottomObjectRefcardMaster,scaleBottomAbsolutetrueMaster,scaleBottomtrueMaster,expectedRect 12,44,808,688Master,scalebottomDistance-24Master,movevDistancefalseMaster,scaleRightAbsolutetrueMaster,scaleRighttrueMaster,scalerightDistance-18Master,scaleRightObjectRefcardMaster,scaleRightObjectSideRightMaster,cardRanking2Master,scaleleftDistanceMaster,scaletopDistance cREVGeneral revUniqueID 1252407934370   `y-ImportMp on mouseUp answer file "" if it is cancel then exit to top put "textutil -convert rtf"&& escapeText(it) &&"-stdout" into tScript set rtftext of fld 1 to shell(tScript) end mouseUp  R0 cREVGeneral revUniqueID 1252407943877 ExportMp on mouseUp ask file "" with specialfolderpath("Desktop")&"/output."&label of btn "format" if the result is cancel then exit to top put rtftext of fld 1 into URL("file:out.rtf") put defaultfolder & "/" & "out.rtf" into tPath put "textutil -convert "& label of btn "format" && escapeText(tPath) &&"-output" && it into tScript get shell(tScript) delete file tPath end mouseUp h R6 cREVGeneral revUniqueID 1252410084570 format eN4txt-txt rtf html doc docx odt wordeml webarchive cREVGeneral revUniqueID 1252411372114 revOnline | RunRev