Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Word 97 Problem in VFP 5
Message
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Divers
Thread ID:
00123352
Message ID:
00128566
Vues:
25
>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
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform