Πώς να μετατρέψετε μαζικά αρχεία μορφής .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. Στο Μετατροπέας μορφής εγγράφου πλαίσιο διαλόγου, πρέπει να κάνετε τα εξής:
3. Στη συνέχεια, εμφανίζεται ένα παράθυρο διαλόγου για να σας πει πόσα έγγραφα έχουν μετατραπεί επιτυχώς, κάντε κλικ στο OK κουμπί και κλείστε το Μετατροπέας μορφής εγγράφου παράθυρο.
Τώρα όλα τα έγγραφα μορφής .doc μετατρέπονται σε αρχεία .docx. Δείτε το στιγμιότυπο οθόνης:
Εάν θέλετε να δοκιμάσετε δωρεάν αυτό το βοηθητικό πρόγραμμα, μεταβείτε στη διεύθυνση δωρεάν λήψη του λογισμικού πρώτα και μετά πηγαίνετε για να εφαρμόσετε τη λειτουργία σύμφωνα με τα παραπάνω βήματα.
Kutools για Outlook - Φέρνει 100 προηγμένες δυνατότητες στο Outlook και κάνει την εργασία πολύ πιο εύκολη!
- Αυτόματο CC / BCC με κανόνες κατά την αποστολή email · Αυτόματη προώθηση Πολλαπλά μηνύματα ηλεκτρονικού ταχυδρομείου κατά παραγγελία. Αυτόματη απάντηση χωρίς διακομιστή ανταλλαγής και περισσότερες αυτόματες δυνατότητες ...
- Προειδοποίηση BCC - εμφάνιση μηνύματος όταν προσπαθείτε να απαντήσετε σε όλα εάν η διεύθυνση αλληλογραφίας σας βρίσκεται στη λίστα BCC; Υπενθύμιση όταν λείπουν συνημμένακαι περισσότερες λειτουργίες υπενθύμισης ...
- Απάντηση (Όλα) Με όλα τα συνημμένα στη συνομιλία μέσω ταχυδρομείου; Απάντηση σε πολλά email σε δευτερόλεπτα; Αυτόματη προσθήκη χαιρετισμού κατά την απάντηση Προσθήκη ημερομηνίας στο θέμα ...
- Εργαλεία συνημμένων: Διαχείριση όλων των συνημμένων σε όλα τα μηνύματα, Αυτόματη απόσπαση, Συμπίεση όλων, Μετονομασία όλων, Αποθήκευση όλων ... Γρήγορη αναφορά, Καταμέτρηση επιλεγμένων μηνυμάτων...
- Ισχυρά ανεπιθύμητα email κατά παραγγελία? Κατάργηση διπλότυπων μηνυμάτων και επαφών... Σας επιτρέπουν να κάνετε πιο έξυπνα, πιο γρήγορα και καλύτερα στο Outlook.
