Convertion fichier en Word à la chaine dans VB

Question

Bonjour,

Je suis occupé a creer une application qui converti des fichiers texte (ASCII) Mac vers Word PC, mais j'ai beaucoup de fichier, donc je définit un dossier source et destination. Mon problème est que word ne quitte pas et me laisse la copie temporaire, je procede de cette façons:

Dim doc As Word.Document
For intA = 1 To longNumberSourceFile
        ' De ASCII MAC vers ASCII WIN
        strA = MAC2WIN(intA) 'une routine perso
        ' De ASCII WIN Vers Word
        Set doc = New Word.Document
        'choix de langue du document
        If strLangue = "FB" Then
            doc.Content.LanguageID = wdBelgianFrench
        ElseIf strLangue = "FF" Then
            doc.Content.LanguageID = wdFrench
        ElseIf strLangue = "EU" Then
            doc.Content.LanguageID = wdEnglishUK
        End If
        doc.Content.NoProofing = False
        doc.Content.Text = strA
        ' Decoupage du nom de fichier et sauvegrade en word
        ActiveDocument.SaveAs FileName:=strTargetPath & Left(strSourceFile(intA), 13) & ";.doc"
        Set doc = Nothing
    Next intA

Il y a t'il un truc ?

Merci de vos reponse
Olivier
Ps: Quant c'est fini, je publie les sources cela peux servir a d'autre.

cs_raff · Answer

définitivement il faut que tu fermes le doc....

Convertion fichier en Word à la chaine dans VB

1 réponse

Discussions similaires