Πώς να μετατρέψετε μαζικά αρχεία μορφής .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

Διαβάστε περισσότερα ... Κατεβάστε τώρα...

Σχόλια (17)

Δεν υπάρχουν ακόμη βαθμολογίες. Γίνε ο πρώτος που θα αξιολογήσετε!

BigB7v1

περίπου 3 χρόνια

#28618

Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου

Δόξα! Ευχαριστώ που το μοιράστηκες. Αυτό ήταν εξαιρετικά χρήσιμο. Είχα πάνω από 50 έγγραφα που έπρεπε να μετατραπούν. Χρειάστηκε μόνο ένα άγγιγμα πάνω από 000 ώρες για να γίνουν όλα. Τεράστια βοήθεια. Χρησιμοποίησα την επιλογή 39

απάντηση

Richard876 BigB7v1

περίπου 3 χρόνια

#28619

Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου

Ανοίξτε το έγγραφο του Word που θέλετε να μετατρέψετε σε αρχείο PDF. Εάν θέλετε να εισαγάγετε μόνο ... ConvertOnlineFree - ατομικές και ομαδικές συνομιλίες εγγράφων Word σε PDF ... PDFOnline - δωρεάν μετατροπέας Word (doc, docx και txt) σε PDF.

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

https://customersurveyinfo.com

απάντηση

Αναφορά

Radha Richard876

περίπου 2 χρόνια

#28620

Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου

Γεια σας, ευχαριστώ για την κοινή χρήση.

απάντηση

George56

περίπου 3 χρόνια

#29322

Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου

Ενδιαφέροντα πράγματα για ανάγνωση. Συνεχίστε.

απάντηση

Τρακτέρ Massey

περίπου 2 χρόνια

#32093

Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου

Χαίρετε Κ.
Χαίρομαι που βρίσκω αυτές τις χρήσιμες πληροφορίες. Ευχαριστούμε που μοιραστήκατε αυτό το καταπληκτικό άρθρο.

απάντηση

Λιπικά

περίπου 2 χρόνια

#33568

Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου

Γεια...Γεια, Αυτό το ιστολόγιο περιέχει πολύ τεχνικές πληροφορίες, είναι από τα καλύτερα blog που έχω. Πολύ ενδιαφέρον και περιγράψτε με πολύ εύκολο τρόπο.

απάντηση

Radha

περίπου 2 χρόνια

#33657

Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου

Γεια σας κύριε,
Λατρεύω αυτή τη δημοσίευση. Εκτιμώ πραγματικά αυτόν τον ιστότοπο. Οι πληροφορίες σας είναι τόσο καλές και πολύτιμες. Αξιαγάπητη ιδέα και ιδέα για την κοινή χρήση αυτού του ιστότοπου.
Αυτός είναι ένας καταπληκτικός ιστότοπος. Αυτή η ανάρτηση είναι ωραία.
Ευχαριστώ που το μοιράστηκες

απάντηση

shriya gupta

περίπου 2 χρόνια

#34341

Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου

HelloNice post .. Συνεχίστε να μοιράζεστε. Σας ευχαριστούμε

απάντηση

uaevisaonline

περίπου 1 χρόνο πριν

#34732

Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου

Αυτό είναι πραγματικά διορατικό άρθρο, το βρήκα πολύ χρήσιμο και ενημερωτικό

απάντηση

Αναφορά

ατζούμας

περίπου 1 χρόνο πριν

#34917

Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου

Ευχαριστούμε που μοιραστήκατε αυτές τις χρήσιμες πληροφορίες.

απάντηση

Αναφορά

narendra

περίπου 1 χρόνο πριν

#35352

Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου

καλύτερη εταιρεία γραφικών σχεδίων στην Ινδία
Ο σχεδιασμός είναι μια τέχνη της επικοινωνίας των λέξεων ως αρθρώσεων. Τα οπτικά στοιχεία έχουν μεγαλύτερη σημασία από τις λέξεις στο προηγμένο πεδίο.
Οι ειδικοί στον κλάδο του σχεδιασμού συνιστούν ότι οι εικόνες είναι πιο απλές στην ανάκληση από τις λέξεις,
και αυτός είναι ο λόγος που ο σχεδιασμός ιστοσελίδων και τα γραφικά παίζουν επιτακτική δουλειά.

απάντηση

Αναφορά

η κομψή

περίπου 10 μήνες πριν

#37155

Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου

Ευχαριστώ που το μοιράστηκες

απάντηση

Ένας άνδρας

περίπου 7 μήνες πριν

#37765

Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου

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

Farmtrac 60

απάντηση

Marco

περίπου 7 μήνες πριν

#37864

Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου

Ωραίο εργαλείο αλλά έχω το πρόβλημα, ότι δεν μπορώ να μετατρέψω αρχεία DOC (γραμμένα με κεφαλαία!) σε αρχεία docx.
Λειτουργεί με αρχεία doc.

απάντηση

κρύσταλλο Marco

περίπου 6 μήνες πριν

#37883

Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου

Γεια σας,
Ο παρακάτω κώδικας μπορεί να βοηθήσει στη μετατροπή και των δύο εγγράφων. και 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

απάντηση

Αναφορά

Daniel Beneš

πριν από περίπου 3 εβδομάδες

#41106

Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου

Dobry den,
já bych potřeboval, ale VBA script který by fungoval včetně podsložek. Umíte někdo prosím upravit i tento script? Děkuji.

ENG:
Καλή σας μέρα,
Θα χρειαζόμουν ένα σενάριο VBA που θα λειτουργούσε συμπεριλαμβανομένων των υποφακέλων. Μπορεί κάποιος να επεξεργαστεί και αυτό το σενάριο; Ευχαριστώ.

απάντηση

κρύσταλλο Daniel Beneš

πριν από περίπου 5 ημέρες

#41445

Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου

Γεια σου Daniel Beneš,
Για να συμπεριλάβετε υποφακέλους, δοκιμάστε τον ακόλουθο κώδικα VBA.
Αφού προσθέσετε τον κωδικό, μεταβείτε στο Εργαλεία κάντε κλικ στην καρτέλα αναφορές, στο άνοιγμα Αναφορές - Έργο πλαίσιο ελέγχου, ελέγξτε το Χρόνος εκτέλεσης δέσμης ενεργειών Microsoft πλαίσιο και, στη συνέχεια, κάντε κλικ στο OK κουμπί για να αποθηκεύσετε τις αλλαγές. Δείτε το παρακάτω στιγμιότυπο οθόνης:

https://www.extendoffice.com/images/stories/comments/comment-picture-zxm/check-scripting_runtime.png

Μετά από αυτό, πατήστε το F5 κλειδί για την εκτέλεση του κώδικα.

Sub ConvertDocToDocx()
'Updated by ExtendOffice 20221124
  Dim xDlg As FileDialog
  Dim xFldPath As Variant
  Dim xFileName As String
  On Error Resume Next
  Application.ScreenUpdating = False
  Set xDlg = Application.FileDialog(msoFileDialogFolderPicker)
  If xDlg.Show <> -1 Then Exit Sub
  xFldPath = xDlg.SelectedItems(1) + "\"
  Call ListAllFiles(xFldPath)
  Application.ScreenUpdating = True
End Sub

Function ListAllFiles(FldPath)
  Dim xFSO As FileSystemObject
  Dim xFolder As Folder
  Dim xSubFolder As Folder
  Dim xNewName As String
  On Error Resume Next
  xFileName = Dir(FldPath & "*.doc", vbNormal)
  While xFileName <> ""
    xNewName = VBA.Left$(xFileName, VBA.InStrRev(xFileName, "doc") - 1) & "docx"
    Documents.Open FileName:=FldPath & xFileName, _
        ConfirmConversions:=False, ReadOnly:=False, AddToRecentFiles:=False, _
        PasswordDocument:="", PasswordTemplate:="", Revert:=False, _
        WritePasswordDocument:="", WritePasswordTemplate:="", Format:= _
        wdOpenFormatAuto, XMLTransform:=""
    ActiveDocument.SaveAs FldPath & xNewName, wdFormatDocumentDefault
    ActiveDocument.Close
    xFileName = Dir()
  Wend
  Set xFSO = CreateObject("Scripting.FileSystemObject")
  Set xFolder = xFSO.GetFolder(FldPath)
  For Each xSubFolder In xFolder.SubFolders
    Call ListAllFiles(xSubFolder.Path + "\")
  Next
  Set xFSO = Nothing
  Set xFolder = Nothing
End Function

απάντηση

Αναφορά

Δεν υπάρχουν σχόλια δημοσιεύτηκε ακόμα

Αφήστε τα σχόλιά σας

Δημοσίευση ως επισκέπτης

Σύνδεση

Όνομα (Απαραίτητο)

Email (απαιτείται)

Αξιολογήστε αυτήν την ανάρτηση:

Επαναφορά

0 Χαρακτήρες

συμφωνώ στο όρους και προϋποθέσεις