i am using a MODI in vb6
i am scaning a big number of tif files
then i want to select an rectangle by code (NOT BY USER SELECTION) in every tif
and recognize this rectangle selection by ocr and give a name to every tif from recognized text.
i found that there is two properties
TextSelection and ImageSelection but i cant give the BoundingRect by code.
are its possible to select rectangle a nd OCR it without user selection
Please this is urgent
Hi,If I understood your request then the following code is from MSDN link.I hope it helpshttp://msdn2.microsoft.com/en-us/library/aa203300(office.11).aspxSub TestRects() Dim miDoc As MODI.Document Dim miWord As MODI.Word Dim miRects As MODI.miRects Dim miRect As MODI.miRect Dim strRectInfo As String Set miDoc = New MODI.Document miDoc.Create “C:document1.tif” miDoc.Images(0).OCR Set miRects = miDoc.Images(0).Layout.Words(2).Rects strRectInfo = “Word falls within ” & miRects.Count & _ ” bounding rectangle(s).” & vbCrLf For Each miRect In miRects strRectInfo = strRectInfo & _ ” rectangle coordinates: ” & vbCrLf & _ ” – Left: ” & miRect.Left & vbCrLf & _ ” – Right: ” & miRect.Right & vbCrLf & _ ” – Top: ” & miRect.Top & vbCrLf & _ ” – Bottom: ” & miRect.Bottom Next MsgBox strRectInfo, vbInformation + vbOKOnly, _ “Rectangle Information” Set miRect = Nothing Set miRects = Nothing Set miWord = Nothing Set miDoc = NothingEnd SubGood luck.Pinokio
Hi everyone Me to suffer in this same problem can anyone help me this case Advance thanks