Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
.doc to .txt
Message
From
11/03/2010 03:38:36
 
 
To
11/03/2010 02:41:13
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Title:
Miscellaneous
Thread ID:
01453860
Message ID:
01453863
Views:
60
Hi Karen,

I did this once with CTRL+A and CTRL+C over WSH. Not elegant but it did the job :-)
#DEFINE WSNORMAL 1
WshShell = CreateObject([wscript.Shell])
* Winword normal startenl
WshShell.Run([WinWord],WSNORMAL)
* CTRL+a
WshShell.SendKeys([^a])
* STRG+c
WshShell.SendKeys([^c])
* ALT+F4
WshShell.SendKeys([%{F4}])
* Now everything is to be found in _cliptext
?_cliptext
>I would like to convert .doc into plain text - i have opened the doc - how can i transfer the text to my m.txt file? Perhaps there is a more direct route than the one i have started.
>
>many thanks
>k
>
>
>objWord = CreateObject("Word.Application")
>objWord.Documents.Open ("C:\mydirectory\mydata.doc")
>objWord.visible = .F.
>
>??? move text to m.txt
>
>modify file m.txt
>
Best Regards
-Tom

Debugging is twice as hard as writing the code in the first place.
Therefore, if you write the code as cleverly as possible, you are,
by definition, not smart enough to debug it.

Oh, and BTW: 010101100100011001010000011110000101001001101111011000110110101101110011
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform