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

Πώς να μετατρέψετε μαζικά αρχεία μορφής .doc σε .docx στο Word;

Ας υποθέσουμε ότι έχετε λάβει περίπου έγγραφα μορφής 97-2003 Word, πώς μπορείτε να μετατρέψετε μαζικά όλα αυτά τα έγγραφα μορφής .doc σε μορφή .docx ταυτόχρονα; Αυτό το άρθρο θα σας δείξει δύο μεθόδους για την επίλυση αυτού του προβλήματος.

Μαζική μετατροπή αρχείων μορφής .doc σε .docx με κώδικα VBA
Μαζική μετατροπή αρχείων μορφής .doc σε .docx με Kutools για Word


Μαζική μετατροπή αρχείων μορφής .doc σε .docx με κώδικα VBA

Αυτή η ενότητα θα σας δείξει τον κωδικό VBA για να μετατρέψετε όλα τα έγγραφα μορφής .doc σε έναν καθορισμένο φάκελο σε έγγραφα .docx ταυτόχρονα. Κάντε τα εξής:

1. Συλλέξτε όλα τα έγγραφα μορφής .doc που θα μετατρέψετε σε .docx σε έναν καθορισμένο φάκελο.

2. Πάτα το άλλος + F11 για να ανοίξετε το Microsoft Visual Basic για εφαρμογές παράθυρο.

3. Στο παράθυρο, κάντε κλικ στο Κύριο θέμα > Μονάδα μέτρησης. Στη συνέχεια, αντιγράψτε κάτω από τον κώδικα VBA στο παράθυρο Module.

Κωδικός VBA: Μαζική μετατροπή όλων των εγγράφων μορφής .doc σε .docx σε έναν συγκεκριμένο φάκελο

Sub ConvertDocToDocx()
'Updated by ExtendOffice 20181128
    Dim xDlg As FileDialog
    Dim xFolder As Variant
    Dim xFileName As String
    Application.ScreenUpdating = False
    Set xDlg = Application.FileDialog(msoFileDialogFolderPicker)
    If xDlg.Show <> -1 Then Exit Sub
    xFolder = xDlg.SelectedItems(1) + "\"
    xFileName = Dir(xFolder & "*.doc", vbNormal)
    While xFileName <> ""
        Documents.Open FileName:=xFolder & xFileName, _
            ConfirmConversions:=False, ReadOnly:=False, AddToRecentFiles:=False, _
            PasswordDocument:="", PasswordTemplate:="", Revert:=False, _
            WritePasswordDocument:="", WritePasswordTemplate:="", Format:= _
            wdOpenFormatAuto, XMLTransform:=""
        ActiveDocument.SaveAs xFolder & Replace(xFileName, "doc", "docx"), wdFormatDocumentDefault
        ActiveDocument.Close
        xFileName = Dir()
    Wend
    Application.ScreenUpdating = True
End Sub

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

Στη συνέχεια, όλα τα έγγραφα μορφής .doc μετατρέπονται σε έγγραφα .docx αμέσως όπως φαίνεται στο παρακάτω στιγμιότυπο οθόνης.


Μαζική μετατροπή αρχείων μορφής .doc σε .docx με Kutools για Word

Ένα πρακτικό βοηθητικό πρόγραμμα θα προταθεί σε αυτήν την ενότητα. Με το Έγγραφο / Docx χρησιμότητα του Kutools για το Word, μπορείτε εύκολα να μετατρέψετε όλα τα έγγραφα μορφής .doc σε ένα φάκελο σε έγγραφα .docx. Δοκιμάστε το παρακάτω.

Kutools για το Word : Με περισσότερα από 100 εύχρηστα πρόσθετα Word, δωρεάν να δοκιμάσετε χωρίς περιορισμό σε 60 ημέρες.

1. Συλλέξτε όλα τα έγγραφα μορφής .doc σε έναν καθορισμένο φάκελο και μετά κάντε κλικ στο Kutools Plus > Έγγραφο / Docx. Δείτε το στιγμιότυπο οθόνης:

2. Στο Μετατροπέας μορφής εγγράφου πλαίσιο διαλόγου, πρέπει να κάνετε τα εξής:

2.1) Επιλέξτε το φάκελο που περιέχει έγγραφα μορφής .doc στο Φάκελος αρχείου προέλευσης Ενότητα;
2.2) Επιλέξτε Μετατροπή εγγράφου σε docx από το Μετατροπή μορφής αναπτυσσόμενη λίστα;
2.3) Από προεπιλογή, το Διαδρομή προορισμού ίδια με την πηγή είναι επιλεγμένο το πλαίσιο. Εάν θέλετε να τοποθετήσετε όλα τα έγγραφα .docx που έχουν μετατραπεί στον ίδιο φάκελο, διατηρήστε αυτήν την επιλογή.
Εάν θέλετε να διαχωρίσετε τα έγγραφα .docx και τα έγγραφα προέλευσης .doc, αποεπιλέξτε το Διαδρομή προορισμού ίδια με την πηγή πλαίσιο και επιλέξτε έναν νέο φάκελο για να αποθηκεύσετε τα έγγραφα .docx στο Αποθήκευση σε κουτί;
2.4) Κάντε κλικ στο Αρχική κουμπί. Δείτε το στιγμιότυπο οθόνης:

3. Στη συνέχεια, εμφανίζεται ένα παράθυρο διαλόγου για να σας πει πόσα έγγραφα έχουν μετατραπεί επιτυχώς, κάντε κλικ στο OK κουμπί και κλείστε το Μετατροπέας μορφής εγγράφου παράθυρο.

Τώρα όλα τα έγγραφα μορφής .doc μετατρέπονται σε αρχεία .docx. Δείτε το στιγμιότυπο οθόνης:

Εάν θέλετε να δοκιμάσετε δωρεάν αυτό το βοηθητικό πρόγραμμα, μεταβείτε στη διεύθυνση δωρεάν λήψη του λογισμικού πρώτα και μετά πηγαίνετε για να εφαρμόσετε τη λειτουργία σύμφωνα με τα παραπάνω βήματα.


Kutools για Outlook - Φέρνει 100 προηγμένες δυνατότητες στο Outlook και κάνει την εργασία πολύ πιο εύκολη!

  • Αυτόματο CC / BCC με κανόνες κατά την αποστολή email · Αυτόματη προώθηση Πολλαπλά μηνύματα ηλεκτρονικού ταχυδρομείου κατά παραγγελία. Αυτόματη απάντηση χωρίς διακομιστή ανταλλαγής και περισσότερες αυτόματες δυνατότητες ...
  • Προειδοποίηση BCC - εμφάνιση μηνύματος όταν προσπαθείτε να απαντήσετε σε όλα εάν η διεύθυνση αλληλογραφίας σας βρίσκεται στη λίστα BCC; Υπενθύμιση όταν λείπουν συνημμένακαι περισσότερες λειτουργίες υπενθύμισης ...
  • Απάντηση (Όλα) Με όλα τα συνημμένα στη συνομιλία μέσω ταχυδρομείου; Απάντηση σε πολλά email σε δευτερόλεπτα; Αυτόματη προσθήκη χαιρετισμού κατά την απάντηση Προσθήκη ημερομηνίας στο θέμα ...
  • Εργαλεία συνημμένων: Διαχείριση όλων των συνημμένων σε όλα τα μηνύματα, Αυτόματη απόσπαση, Συμπίεση όλων, Μετονομασία όλων, Αποθήκευση όλων ... Γρήγορη αναφορά, Καταμέτρηση επιλεγμένων μηνυμάτων...
  • Ισχυρά ανεπιθύμητα email κατά παραγγελία? Κατάργηση διπλότυπων μηνυμάτων και επαφών... Σας επιτρέπουν να κάνετε πιο έξυπνα, πιο γρήγορα και καλύτερα στο Outlook.
shot kutools outlook kutools καρτέλα 1180x121
shot kutools outlook kutools συν καρτέλα 1180x121
 
Σχόλια (15)
Δεν υπάρχουν ακόμη βαθμολογίες. Γίνε ο πρώτος που θα αξιολογήσετε!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Δόξα! Ευχαριστώ που το μοιράστηκες. Αυτό ήταν εξαιρετικά χρήσιμο. Είχα πάνω από 50 έγγραφα που έπρεπε να μετατραπούν. Χρειάστηκε μόνο ένα άγγιγμα πάνω από 000 ώρες για να γίνουν όλα. Τεράστια βοήθεια. Χρησιμοποίησα την επιλογή 39
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Ανοίξτε το έγγραφο του Word που θέλετε να μετατρέψετε σε αρχείο PDF. Εάν θέλετε να εισαγάγετε μόνο ... ConvertOnlineFree - ατομικές και ομαδικές συνομιλίες εγγράφων Word σε PDF ... PDFOnline - δωρεάν μετατροπέας Word (doc, docx και txt) σε PDF.

Ωραίο blog, το άρθρο που μοιραστήκατε είναι καλό. Αυτό το άρθρο είναι πολύ χρήσιμο. Ο φίλος μου μου προτείνει να χρησιμοποιήσω αυτό το blog.

https://customersurveyinfo.com
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σας, ευχαριστώ για την κοινή χρήση.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Ενδιαφέροντα πράγματα για ανάγνωση. Συνεχίστε.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Χαίρετε Κ.
Χαίρομαι που βρίσκω αυτές τις χρήσιμες πληροφορίες. Ευχαριστούμε που μοιραστήκατε αυτό το καταπληκτικό άρθρο.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια...Γεια, Αυτό το ιστολόγιο περιέχει πολύ τεχνικές πληροφορίες, είναι από τα καλύτερα blog που έχω. Πολύ ενδιαφέρον και περιγράψτε με πολύ εύκολο τρόπο.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σας κύριε,
Λατρεύω αυτή τη δημοσίευση. Εκτιμώ πραγματικά αυτόν τον ιστότοπο. Οι πληροφορίες σας είναι τόσο καλές και πολύτιμες. Αξιαγάπητη ιδέα και ιδέα για την κοινή χρήση αυτού του ιστότοπου.
Αυτός είναι ένας καταπληκτικός ιστότοπος. Αυτή η ανάρτηση είναι ωραία.
Ευχαριστώ που το μοιράστηκες
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
HelloNice post .. Συνεχίστε να μοιράζεστε. Σας ευχαριστούμε
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Αυτό είναι πραγματικά διορατικό άρθρο, το βρήκα πολύ χρήσιμο και ενημερωτικό
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Ευχαριστούμε που μοιραστήκατε αυτές τις χρήσιμες πληροφορίες.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
καλύτερη εταιρεία γραφικών σχεδίων στην Ινδία
Ο σχεδιασμός είναι μια τέχνη της επικοινωνίας των λέξεων ως αρθρώσεων. Τα οπτικά στοιχεία έχουν μεγαλύτερη σημασία από τις λέξεις στο προηγμένο πεδίο.
Οι ειδικοί στον κλάδο του σχεδιασμού συνιστούν ότι οι εικόνες είναι πιο απλές στην ανάκληση από τις λέξεις,
και αυτός είναι ο λόγος που ο σχεδιασμός ιστοσελίδων και τα γραφικά παίζουν επιτακτική δουλειά.

Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Ευχαριστώ που το μοιράστηκες
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Υπέροχες πληροφορίες Πολύ χρήσιμες, ευχαριστώ για την κοινή χρήση.

Farmtrac 60
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Ωραίο εργαλείο αλλά έχω το πρόβλημα, ότι δεν μπορώ να μετατρέψω αρχεία DOC (γραμμένα με κεφαλαία!) σε αρχεία docx.
Λειτουργεί με αρχεία doc.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σας,
Ο παρακάτω κώδικας μπορεί να βοηθήσει στη μετατροπή και των δύο εγγράφων. και DOC. αρχεία σε αρχεία docx. Δοκιμάστε το. Ευχαριστούμε για την ανταπόκριση σας.

Sub ConvertDocToDocx()
'Updated by ExtendOffice 20220506
    Dim xDlg As FileDialog
    Dim xFolder As Variant
    Dim xFileName As String
    Application.ScreenUpdating = False
    Set xDlg = Application.FileDialog(msoFileDialogFolderPicker)
    If xDlg.Show <> -1 Then Exit Sub
    xFolder = xDlg.SelectedItems(1) + "\"
    xFileName = Dir(xFolder & "*.doc", vbNormal)
    While xFileName <> ""
        Documents.Open FileName:=xFolder & xFileName, _
            ConfirmConversions:=False, ReadOnly:=False, AddToRecentFiles:=False, _
            PasswordDocument:="", PasswordTemplate:="", Revert:=False, _
            WritePasswordDocument:="", WritePasswordTemplate:="", Format:= _
            wdOpenFormatAuto, XMLTransform:=""
        ActiveDocument.SaveAs xFolder & Replace(VBA.LCase(xFileName), "doc", "docx"), wdFormatDocumentDefault
        ActiveDocument.Close
        xFileName = Dir()
    Wend
    Application.ScreenUpdating = True
End Sub
Δεν υπάρχουν σχόλια δημοσιεύτηκε ακόμα
Αφήστε τα σχόλιά σας
Δημοσίευση ως επισκέπτης
×
Αξιολογήστε αυτήν την ανάρτηση:
0  Χαρακτήρες
Προτεινόμενες τοποθεσίες