Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Word 97 Problem in VFP 5
Message
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Miscellaneous
Thread ID:
00123352
Message ID:
00128566
Views:
26
>Larry,
>
>I couldn't find tha vlaue to use, but I think you need to supply the second parameter to the SaveAs call. Maybe someone here knows what that value should be.

I got it to work (with the help of an in-house guru). Here's the code...
*** BEGIN CODE

oWord = GETOBJECT('','Word.Basic')

ADIR(aFileList,"*.doc")
FOR i = 1 TO ALEN( aFileList , 1 )

    cFileName = aFileList[ i, 1 ]
    cDocName = UPPER( "c:\temp\sslist\" + cFileName)
    cTxtName  = 'c:\temp\' + STRTRAN( cFileName, '.DOC', '.TXT' )

    WAIT WINDOW 'Opening ' + cFileName NOWAIT NOCLEAR
    oWord.FileOpen(cDocName)

    WAIT WINDOW 'Saving ' + cTxtName NOWAIT NOCLEAR
    oWord.FileSaveAs(cTxtName, 3)

    WAIT CLEAR
    oWord.FileClose()

NEXT
oWord.FileExit()

*** END CODE
Thanks for your input...

Larry
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform