Note: The other languages of the website are Google-translated. Back to English
Σύνδεση  \/ 
x
or
x
Εγγραφή  \/ 
x

or

Πώς να μετατρέψετε μαζικά έγγραφα Word σε αρχείο txt;

Αυτό το άρθρο μιλά για τον τρόπο μαζικής μετατροπής όλων των εγγράφων του Word σε έναν συγκεκριμένο φάκελο για το διαχωρισμό αρχείων TXT στο Word.

Μαζική μετατροπή εγγράφων Word σε αρχεία txt με VBA


Μαζική μετατροπή εγγράφων Word σε αρχεία txt με VBA

Ο παρακάτω κώδικας VBA μπορεί να σας βοηθήσει να μετατρέψετε όλα τα έγγραφα του Word σε έναν συγκεκριμένο φάκελο σε αρχεία txt ταυτόχρονα. Κάντε τα εξής:

1. Στο έγγραφο του Word, πατήστε το άλλος + F11 για να ανοίξετε το Microsoft Visual Basic για εφαρμογές παράθυρο.

2. Στο Microsoft Visual Basic για εφαρμογές παράθυρο, κάντε κλικ στην επιλογή Κύριο θέμα > Μονάδα μέτρησηςκαι, στη συνέχεια, αντιγράψτε τον παρακάτω κώδικα στο παράθυρο Module.

Κωδικός VBA: Μαζική μετατροπή εγγράφων του Word σε αρχεία 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. Πάτα το F5 κλειδί για την εκτέλεση του κώδικα.

4. Στο Αναζήτηση παράθυρο, επιλέξτε το φάκελο που περιέχει έγγραφα του Word που θα μετατρέψετε σε αρχεία txt και κάντε κλικ στο OK κουμπί. Δείτε το στιγμιότυπο οθόνης:

Στη συνέχεια, μπορείτε να δείτε ότι όλα τα έγγραφα στον επιλεγμένο φάκελο μετατρέπονται σε αρχεία txt ταυτόχρονα. Δείτε το στιγμιότυπο οθόνης:



Συνιστώμενα εργαλεία παραγωγικότητας του Word

 

Kutools For Word - Περισσότερες από 100 προηγμένες δυνατότητες για το Word, εξοικονομήστε χρόνο 50%

  • Περίπλοκες και επαναλαμβανόμενες λειτουργίες μπορούν να γίνουν μία φορά επεξεργασία σε δευτερόλεπτα.
  • Εισαγάγετε πολλές εικόνες στους φακέλους στο έγγραφο του Word ταυτόχρονα.
  • Συγχώνευση και συνδυασμός πολλαπλών αρχείων Word σε όλους τους φακέλους σε ένα με την επιθυμητή σειρά.
  • Διαχωρίστε το τρέχον έγγραφο σε ξεχωριστά έγγραφα σύμφωνα με την επικεφαλίδα, το τμήμα αλλαγής ή άλλα κριτήρια.
  • Μετατροπή αρχείων μεταξύ Doc και Docx, Docx και PDF, συλλογή εργαλείων για κοινές μετατροπές και επιλογή και ούτω καθεξής ...

Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Mina · 3 months ago
    Not working for me, any ideas why?
    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

    • To post as a guest, your comment is unpublished.
      mIk · 2 months ago
      Change xFileStr = Dir(xFolder & "\*.doc") to xFileStr = Dir(xFolder & "\*.docx") as i assume you have newer word files format.
    • To post as a guest, your comment is unpublished.
      Mina · 3 months ago
      I'm using windows 10 and Microsoft office 2016
  • To post as a guest, your comment is unpublished.
    DebSutter · 3 months ago
    Thank you! This is extremely helpful
    • To post as a guest, your comment is unpublished.
      Mina · 3 months ago
      How did you get it to work?
  • To post as a guest, your comment is unpublished.
    Mario · 1 years ago
    I'm a fan of poetry. I needed to convert more than 700 word compositions to txt. Thanks to your subroutine I managed to do it in no time.
    Thank you