Comment convertir par lots des fichiers au format .doc en .docx dans Word?

En supposant que vous ayez reçu des documents Word au format 97-2003, comment pouvez-vous convertir par lots tous ces documents au format .doc au format .docx à la fois? Cet article vous montrera deux méthodes pour résoudre ce problème.

Conversion par lots de fichiers au format .doc en .docx avec le code VBA
Convertissez par lots des fichiers au format .doc en .docx avec Kutools for Word

Conversion par lots de fichiers au format .doc en .docx avec le code VBA

Cette section va vous montrer le code VBA pour convertir tous les documents au format .doc dans un dossier spécifié en documents .docx à la fois. Veuillez faire comme suit.

1. Veuillez rassembler tous les documents au format .doc que vous allez convertir en .docx dans un dossier spécifié.

2. appuie sur le autre + F11 clé pour ouvrir le Microsoft Visual Basic pour applications fenêtre.

3. Dans la fenêtre, cliquez sur insérer > Module. Copiez ensuite le code VBA ci-dessous dans la fenêtre Module.

Code VBA: convertir par lots tous les documents au format .doc en .docx dans un certain dossier

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. appuie sur le F5 clé pour exécuter le code. Dans l'ouverture DECOUVREZ fenêtre, sélectionnez le dossier contenant les documents au format .doc et cliquez sur OK. Voir la capture d'écran:

Ensuite, tous les documents au format .doc sont convertis en documents .docx immédiatement comme illustré ci-dessous.

Convertissez par lots des fichiers au format .doc en .docx avec Kutools for Word

Un utilitaire pratique sera recommandé dans cette section. Avec le Doc / Docx utilité de Kutools pour Word, vous pouvez facilement convertir tous les documents au format .doc d'un dossier en documents .docx. Veuillez essayer ce qui suit.

Kutools pour Word : Avec plus de 100 compléments Word pratiques, gratuit pour essayer sans limitation dans 60 jours.

1. Veuillez rassembler tous les documents au format .doc dans un dossier spécifié, puis cliquez sur Kutools Plus > Doc / Docx. Voir la capture d'écran:

2. dans le Convertisseur de format de document boîte de dialogue, vous devez procéder comme suit:

3. Ensuite, une boîte de dialogue apparaît pour vous dire combien de documents ont été convertis avec succès, cliquez sur le OK et fermez le Convertisseur de format de document fenêtre.

Désormais, tous les documents au format .doc sont convertis en fichiers .docx. Voir la capture d'écran:

Si vous souhaitez avoir un essai gratuit de cet utilitaire, rendez-vous sur télécharger gratuitement le logiciel d'abord, puis appliquez l'opération selon les étapes ci-dessus.

Kutools for Outlook - Apporte 100 fonctionnalités avancées à Outlook et simplifie grandement le travail!

• CC / BCC automatique par des règles lors de l'envoi d'e-mails; Transfert automatique Emails multiples par coutume; Réponse automatique sans serveur d'échange, et plus de fonctionnalités automatiques ...
• Avertissement BCC - afficher le message lorsque vous essayez de répondre à tous si votre adresse e-mail est dans la liste BCC; Rappeler en cas de pièces jointes manquantes, et plus de fonctionnalités de rappel ...
• Répondre (à tous) avec toutes les pièces jointes dans la conversation par courrier électronique; Répondre à de nombreux e-mails en secondes; Ajouter un message d'accueil automatique quand répondre; Ajouter la date au sujet ...
• Outils de pièces jointes: gérer toutes les pièces jointes dans tous les courriers, Détachement automatique, Compresser tout, Tout renommer, Tout enregistrer ... Rapport rapide, Compter les courriers sélectionnés...
• Courriels indésirables puissants par coutume; Supprimer les messages et contacts en double... Vous permettre de faire plus intelligemment, plus rapidement et mieux dans Outlook.

Lire la suite... Télécharger maintenant...