Local miDoc,miLayout,lcStr >>>>>lcStr='' >>>>>CREATE CURSOR mydocument (mydococr m) >>>>>miDoc = Createobject('MODI.Document') >>>>>miDoc.Create( "C:\untitled.tif") >>>>>miDoc.Images(0).OCR >>>>>miLayout = miDoc.Images(0).Layout >>>>>strLayoutInfo ="Language: " + Transform(miLayout.Language )+Chr(13)+Chr(10) >>>>>strLayoutInfo=strLayoutInfo+"Number of characters: " + Transform(miLayout.NumChars)+Chr(13)+Chr(10) >>>>>strLayoutInfo=strLayoutInfo+"Number of fonts: "+ Transform(miLayout.NumFonts )+Chr(13)+Chr(10) >>>>>strLayoutInfo=strLayoutInfo+"Number of words: " + Transform(miLayout.NumWords)+Chr(13)+Chr(10)+Chr(13)+Chr(10) >>>>>strLayoutinfo = strLayoutinfo+miLayout.text >>>>>INSERT INTO mydocument (mydococr) VALUES (strLayoutinfo) >>>>>MODIFY MEMO mydocument.mydococr>>>>>