Note: The other languages of the website are Google-translated. Back to English
English English

Comment convertir par lots des documents Word en fichier txt?

Cet article explique comment convertir par lots tous les documents Word dans un dossier spécifique pour séparer les fichiers TXT dans Word.

Conversion par lots de documents Word en fichiers txt avec VBA


Conversion par lots de documents Word en fichiers txt avec VBA

Le code VBA ci-dessous peut aider à convertir tous les documents Word d'un dossier spécifique en fichiers txt à la fois. Veuillez faire comme suit.

1. Dans un document Word, appuyez sur la touche autre + F11 clés pour ouvrir le Microsoft Visual Basic pour applications fenêtre.

2. dans le Microsoft Visual Basic pour applications fenêtre, cliquez sur insérer > Module, puis copiez le code ci-dessous dans la fenêtre Module.

Code VBA: convertir par lots des documents Word en fichiers txt

Sub ConvertDocumentsToTxt()
'Updated by Extendoffice 20181123
    Dim xIndex As Long
    Dim xFolder As Variant
    Dim xFileStr As String
    Dim xFilePath As String
    Dim xDlg As FileDialog
    Dim xActPath As String
    Dim xDoc As Document
    Application.ScreenUpdating = False
    Set xDlg = Application.FileDialog(msoFileDialogFolderPicker)
    If xDlg.Show <> -1 Then Exit Sub
    xFolder = xDlg.SelectedItems(1)
    xFileStr = Dir(xFolder & "\*.doc")
    xActPath = ActiveDocument.Path
    While xFileStr <> ""
        xFilePath = xFolder & "\" & xFileStr
        If xFilePath <> xActPath Then
            Set xDoc = Documents.Open(xFilePath, AddToRecentFiles:=False, Visible:=False)
            xIndex = InStrRev(xFilePath, ".")
            Debug.Print Left(xFilePath, xIndex - 1) & ".txt"
            xDoc.SaveAs Left(xFilePath, xIndex - 1) & ".txt", FileFormat:=wdFormatText, AddToRecentFiles:=False
            xDoc.Close True
        End If
        xFileStr = Dir()
    Wend
    Application.ScreenUpdating = True
End Sub

3. appuie sur le F5 clé pour exécuter le code.

4. dans le DECOUVREZ , sélectionnez le dossier contenant les documents Word que vous allez convertir en fichiers txt, puis cliquez sur le OK bouton. Voir la capture d'écran:

Ensuite, vous pouvez voir que tous les documents du dossier sélectionné sont convertis en fichiers txt à la fois. Voir la capture d'écran:


Outils de productivité Word recommandés

 

Kutools For Word - Plus de 100 fonctionnalités avancées pour Word, économisez 50% de votre temps

  • Les opérations compliquées et répétées peuvent être effectuées une seule fois en quelques secondes.
  • Insérez simultanément plusieurs images dans des dossiers dans un document Word.
  • Fusionner et combiner plusieurs fichiers Word dans des dossiers en un seul avec l'ordre souhaité.
  • Divisez le document actuel en documents séparés selon l'en-tête, le saut de section ou d'autres critères.
  • Convertissez des fichiers entre Doc et Docx, Docx et PDF, collection d'outils pour les conversions et la sélection courantes, etc.
Commentaires (21)
Noté 5 hors 5 · évaluations 1
Ce commentaire a été minimisé par le modérateur sur le site
Je suis fan de poésie. J'avais besoin de convertir plus de 700 compositions de mots en txt. Grâce à votre sous-programme, j'ai réussi à le faire en un rien de temps.
Merci
Ce commentaire a été minimisé par le modérateur sur le site
Serait-il possible de fournir le même code lorsque j'utilise le dernier Word sur un Mac ? J'obtiens l'erreur d'exécution 5948 et les points de débogage vers cette section : Set xDlg = Application.FileDialog(msoFileDialogFolderPicker)••••ˇˇˇˇ
Ce commentaire a été minimisé par le modérateur sur le site
Merci! Ceci est extrêmement utile
Ce commentaire a été minimisé par le modérateur sur le site
Comment l'avez-vous fait fonctionner?
Ce commentaire a été minimisé par le modérateur sur le site
Ne fonctionne pas pour moi, des idées pourquoi?
Dois-je le faire dans un document Word du même dossier que je veux convertir ou dans tout nouveau document Word que je commence ? -J'ai essayé les deux options et aucune ne fonctionne mais je ne reçois pas non plus de messages d'erreur
Ce commentaire a été minimisé par le modérateur sur le site
J'utilise Windows 10 et Microsoft Office 2016
Ce commentaire a été minimisé par le modérateur sur le site
Remplacez xFileStr = Dir(xFolder & "\*.doc") par xFileStr = Dir(xFolder & "\*.docx") car je suppose que vous avez un format de fichiers Word plus récent.
Ce commentaire a été minimisé par le modérateur sur le site
Salut, le code fonctionne mais à la fin me donne 'Runtime error 91', certains de mes fichiers ont des objets. Une idée de comment puis-je résoudre ce problème?
Ce commentaire a été minimisé par le modérateur sur le site
Merci beaucoup! A fonctionné comme un charme!
Ce commentaire a été minimisé par le modérateur sur le site
A travaillé rapidement et parfaitement sur un dossier rempli de fichiers .docx. Je te remercie/
Ce commentaire a été minimisé par le modérateur sur le site
Le script fonctionne très bien pour moi, mais seulement pour un dossier. Existe-t-il un moyen d'inclure tous les sous-dossiers ?
Ce commentaire a été minimisé par le modérateur sur le site
Merci pour cela - j'allais juste coder quelque chose moi-même quand j'ai pensé, "Hé, peut-être que quelqu'un l'a déjà fait?" Vous l'aviez fait, et beaucoup plus élégamment que je ne l'aurais fait. Merci pour votre travail acharné.
Ce commentaire a été minimisé par le modérateur sur le site
J'ai utilisé le script ci-dessus pour convertir par lots des documents en coréen, mais le script n'a pas fonctionné. Quand j'ai fatigué de changer l'encodage, quelqu'un peut-il m'aider avec cette erreur ?
Ce commentaire a été minimisé par le modérateur sur le site
J'AI BESOIN d'eux pour convertir en fichiers texte délimités est-ce encore possible.
Ce commentaire a été minimisé par le modérateur sur le site
Cela a fonctionné un régal! Merci!
Noté 5 hors 5
Ce commentaire a été minimisé par le modérateur sur le site
Bonjour, merci pour ce message. Lorsque j'appuie sur "exécuter", j'obtiens un message d'erreur : "Erreur de compilation : procédure externe non valide." C'est si j'utilise l'extension doc ou docx (peut-être sans rapport mais j'ai essayé les deux.) Pouvez-vous m'aider ? Je n'ai aucune idée de comment utiliser le code... et j'ai vraiment besoin de convertir une tonne de docs. Merci!
Ce commentaire a été minimisé par le modérateur sur le site
Salut Durga,
Le code fonctionne bien dans mon cas.
Assurez-vous que la fenêtre Module (Code) contient uniquement le code VBA fourni dans le message.
Ce commentaire a été minimisé par le modérateur sur le site
Salut, cela fonctionne parfaitement. Existe-t-il un moyen de choisir un autre format d'encodage du TXT (UTF-8 au lieu de Windows par exemple) ?
Ce commentaire a été minimisé par le modérateur sur le site
Salut Simon,
Le code VBA suivant permet de convertir tous les documents Word d'un dossier spécifié en fichiers UTF-8 .txt
Sub ConvertDocumentsToTxt()
'Updated by Extendoffice 20201031
    Dim xIndex As Long
    Dim xFolder As Variant
    Dim xFileStr As String
    Dim xFilePath As String
    Dim xDlg As FileDialog
    Dim xActPath As String
    Dim xDoc As Document
    Application.ScreenUpdating = False
    Set xDlg = Application.FileDialog(msoFileDialogFolderPicker)
    If xDlg.Show <> -1 Then Exit Sub
    xFolder = xDlg.SelectedItems(1)
    xFileStr = Dir(xFolder & "\*.doc")
    xActPath = ActiveDocument.Path
    While xFileStr <> ""
        xFilePath = xFolder & "\" & xFileStr
        If xFilePath <> xActPath Then
            Set xDoc = Documents.Open(xFilePath, AddToRecentFiles:=False, Visible:=False)
            xIndex = InStrRev(xFilePath, ".")
            xDoc.SaveAs Left(xFilePath, xIndex - 1) & ".txt", FileFormat:=wdFormatText, AddToRecentFiles:=False, Encoding:=msoEncodingUTF8
            xDoc.Close True
        End If
        xFileStr = Dir()
    Wend
    Application.ScreenUpdating = True
End Sub
Ce commentaire a été minimisé par le modérateur sur le site
Merci beaucoup
Ce commentaire a été minimisé par le modérateur sur le site
Merci beaucoup ! La conversion se fait très bien
Il n'y a pas encore de commentaires postés ici
Laisser vos commentaires
Publier en tant qu'invité
×
Évaluez cet article:
0   Personnages
Emplacements suggérés