Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
.doc to .txt
Message
De
11/03/2010 03:38:36
 
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Titre:
Divers
Thread ID:
01453860
Message ID:
01453863
Vues:
61
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
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform