>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
>
#DEFINE wdAlertsNone 0
#DEFINE wdDoNotSaveChanges 0
#DEFINE wdSaveChanges -1
#DEFINE wdPromptToSaveChanges -2
#DEFINE wdFormatText 2
#DEFINE wdFormatTextLineBreaks 3
lcDoc = "C:\mydirectory\mydata.doc"
lcSaveAs = "C:\mydirectory\mydata.txt"
oword = CREATEOBJECT('Word.Application')
oWord.Documents.Open(m.lcDoc)
oWord.DisplayAlerts = wdAlertsNone
oWord.Activedocument.Saveas(m.lcSaveas, wdFormatText)
oWord.Quit(wdSaveChanges)
Cetin