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

Πώς να μετατρέψετε μαζικά έγγραφα 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, συλλογή εργαλείων για κοινές μετατροπές και επιλογή και ούτω καθεξής ...
Σχόλια (22)
Βαθμολογήθηκε το 5 από το 5 · αξιολογήσεις 1
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Είμαι λάτρης της ποίησης. Χρειάστηκε να μετατρέψω περισσότερες από 700 συνθέσεις λέξεων σε txt. Χάρη στην υπορουτίνα σας τα κατάφερα σε ελάχιστο χρόνο.
Ευχαριστούμε
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Θα ήταν δυνατό να παρέχω τον ίδιο κωδικό όταν χρησιμοποιώ το πιο πρόσφατο Word σε Mac; Λαμβάνω το σφάλμα χρόνου εκτέλεσης 5948 και το σημείο εντοπισμού σφαλμάτων σε αυτήν την ενότητα: Ορισμός xDlg = Application.FileDialog(msoFileDialogFolderPicker)••••ˇˇˇˇ
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Σας ευχαριστώ! Αυτό είναι εξαιρετικά χρήσιμο
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Πώς το έπιασες να δουλέψει;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Δεν λειτουργεί για μένα, καμία ιδέα γιατί;
Χρειάζεται να το κάνω σε ένα έγγραφο word από τον ίδιο φάκελο που θέλω να μετατρέψω ή σε οποιοδήποτε νέο έγγραφο του Word που ξεκινάω; -Δοκίμασα και τις δύο επιλογές και καμία δεν λειτουργεί, αλλά επίσης δεν λαμβάνω κανένα μήνυμα σφάλματος
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Χρησιμοποιώ windows 10 και Microsoft office 2016
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Αλλάξτε το xFileStr = Dir(xFolder & "\*.doc") σε xFileStr = Dir(xFolder & "\*.docx") καθώς υποθέτω ότι έχετε νεότερη μορφή αρχείων word.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια, ο κώδικας λειτουργεί, αλλά στο τέλος μου βγάζει «Σφάλμα χρόνου εκτέλεσης 91», ορισμένα από τα αρχεία μου έχουν αντικείμενα. Καμιά ιδέα πώς μπορώ να το διορθώσω;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Σε ευχαριστώ πολύ! Λειτουργούσε σαν γούρι!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Δούλεψε γρήγορα και τέλεια σε έναν φάκελο γεμάτο αρχεία .docx. Σας ευχαριστώ/
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Το σενάριο λειτουργεί υπέροχα για μένα, αλλά μόνο για έναν φάκελο. Υπάρχει κάποιος τρόπος να συμπεριληφθούν όλοι οι υποφακέλους;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Ευχαριστώ για αυτό - απλώς επρόκειτο να κωδικοποιήσω κάτι ο ίδιος όταν σκέφτηκα, "Γεια, ίσως κάποιος το έχει κάνει ήδη;" Είχες, και μια συμφωνία πιο κομψή από ό,τι θα έκανα εγώ. Σας ευχαριστώ για τη σκληρή δουλειά σας.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Χρησιμοποίησα το παραπάνω σενάριο για τη μαζική μετατροπή εγγράφων στα Κορεατικά, αλλά το σενάριο δεν λειτούργησε. Όταν κουράστηκα να αλλάξω την κωδικοποίηση, μπορεί κάποιος να με βοηθήσει με αυτό το σφάλμα;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
ΧΡΕΙΑΖΟΜΑΙ να τα μετατρέψουν σε οριοθετημένα αρχεία κειμένου είναι ακόμα δυνατό.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Αυτό λειτούργησε μια απόλαυση! Ευχαριστώ!
Βαθμολογήθηκε το 5 από το 5
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σας, σας ευχαριστώ για αυτήν την ανάρτηση. Όταν πατάω "εκτέλεση", λαμβάνω ένα μήνυμα λάθους: "Σφάλμα μεταγλώττισης: Μη έγκυρη εξωτερική διαδικασία." Αυτό είναι αν χρησιμοποιώ την επέκταση doc ή docx (ίσως άσχετη αλλά δοκίμασα και τα δύο.) Μπορείτε να βοηθήσετε; Δεν έχω ιδέα πώς να χρησιμοποιήσω τον κώδικα... και πραγματικά πρέπει να μετατρέψω έναν τόνο εγγράφων. Ευχαριστώ!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σου Durga,
Ο κώδικας λειτουργεί καλά στην περίπτωσή μου.
Βεβαιωθείτε ότι το παράθυρο Μονάδας (Κωδικός) περιέχει μόνο τον κωδικό VBA που παρέχεται στην ανάρτηση.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια, αυτό λειτουργεί τέλεια. Υπάρχει τρόπος να επιλέξετε διαφορετική μορφή κωδικοποίησης του TXT (UTF-8 αντί για Windows για παράδειγμα);
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σου Simon,
Ο ακόλουθος κώδικας VBA βοηθά στη μετατροπή όλων των εγγράφων του Word σε έναν καθορισμένο φάκελο σε αρχεία 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
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Πολά ευχαριστώ
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Ευχαριστώ πολύ ! La conversion se fait très bien
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Vielen Dank, das ist wirklich sehr hilfreich! Ich werde auf Deine Seite bei der nächsten Gelegenheit verweisen.
Χαιρετισμός
Uli
Δεν υπάρχουν σχόλια δημοσιεύτηκε ακόμα
Αφήστε τα σχόλιά σας
Δημοσίευση ως επισκέπτης
×
Αξιολογήστε αυτήν την ανάρτηση:
0   Χαρακτήρες
Προτεινόμενες τοποθεσίες

Ακολουθησε μας

Πνευματικά δικαιώματα © 2009 - www.extendoffice.com. | Ολα τα δικαιώματα διατηρούνται. Τροφοδοτείται από ExtendOffice. | Sitemap
Το Microsoft και το λογότυπο του Office είναι εμπορικά σήματα ή σήματα κατατεθέντα της Microsoft Corporation στις Ηνωμένες Πολιτείες ή / και σε άλλες χώρες.
Προστατεύεται από το Sectigo SSL