Do I need to do this in a word document from the same folder I want to convert or any new word document that I start? -Tried both options and none is working but I am also not getting any error messages
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.