Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Is There a Way To Convert a TIFF to Word Doc?
Message
General information
Forum:
Visual FoxPro
Category:
Pictures and Image processing
Environment versions
Visual FoxPro:
VFP 9 SP2
OS:
Windows XP SP2
Network:
Windows 2003 Server
Database:
MS SQL Server
Miscellaneous
Thread ID:
01426980
Message ID:
01427054
Views:
70
The MS Imaging is part of Office 2003 and later. It's not installed by default in Office 2007.

>I came across this code on the UT recently, it uses MS Imaging, so I'm not sure if you need Office 2007 to get it to run, but after I installed the imaging element of Office, it worked brilliantly:
>
>
>Local miDoc,miLayout,lcStr
>lcStr=''
>CREATE CURSOR mydocument (mydococr m)
>miDoc = Createobject('MODI.Document')
>miDoc.Create( "C:\kompass.tif")                    && TIF to convert
>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
>
>
>Hope this is of use
>Kevin
--sb--
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform