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

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, libre d'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:

2.1) Sélectionnez le dossier contenant les documents au format .doc dans le Dossier de fichiers source section;
2.2) Sélectionnez Convertir doc en docx du Conversion de format la liste déroulante;
2.3) Par défaut, le Chemin de destination identique à la source la case est cochée. Si vous souhaitez placer tous les documents .docx convertis dans le même dossier, gardez simplement cette option sélectionnée;
Si vous souhaitez séparer les documents .docx et les documents source .doc, décochez la case Chemin de destination identique à la source et sélectionnez un nouveau dossier pour enregistrer les documents .docx dans le Ajouter à la boîte;
2.4) Cliquez sur le Accueil bouton. Voir la capture d'écran:

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ésplus
  • Courriels indésirables puissants par coutume; Supprimer les messages et contacts en doubleplus Vous permettre de faire plus intelligemment, plus rapidement et mieux dans Outlook.
tir kutools outlook onglet kutools 1180x121
tir kutools outlook kutools plus onglet 1180x121
 
Commentaires (14)
Pas encore de notes. Soyez le premier à évaluer!
BigB7v1
BigB7v1
Ce commentaire a été minimisé par le modérateur sur le site
Gloire! Merci d'avoir partagé. C'était extrêmement utile. J'avais plus de 50 000 documents à convertir. Il a fallu juste une touche de plus de 39 heures pour tout faire. Une aide énorme. J'ai utilisé l'option 1
Répondre
0
0
George56
George56
Ce commentaire a été minimisé par le modérateur sur le site
Des choses intéressantes à lire. Continue comme ça.
Répondre
0
0
Tracteur Massey
Tracteur Massey
Ce commentaire a été minimisé par le modérateur sur le site
Bonjour,
Je suis heureux de trouver cette information utile Merci d'avoir partagé cet article étonnant.
Répondre
0
0
Lipika
Lipika
Ce commentaire a été minimisé par le modérateur sur le site
Salut.... Salut, Ce blog contient des informations très techniques, c'est l'un des meilleurs blogs que j'ai. Très intéressant et décrit de manière très simple.
Répondre
0
0
Radha
Radha
Ce commentaire a été minimisé par le modérateur sur le site
Bonjour monsieur,
J'adore cet article. J'apprécie vraiment ce site Web. Vos informations sont si bonnes et précieuses. Idée et concept adorables pour partager ce site Web.
Ceci est un site Web incroyable. Ce message est agréable.
Merci d'avoir partagé
Répondre
0
0
shriya gupta
shriya gupta
Ce commentaire a été minimisé par le modérateur sur le site
BonjourNice post .. Continuez à partager.Merci
Répondre
0
0
uaevisaonline
uaevisaonline
Ce commentaire a été minimisé par le modérateur sur le site
Cet article est vraiment perspicace, je l'ai trouvé très utile et informatif
Répondre
Rapport
0
0
ajumas
ajumas
Ce commentaire a été minimisé par le modérateur sur le site
Merci de partager cette information utile.
Répondre
Rapport
0
0
Narendra
Narendra
Ce commentaire a été minimisé par le modérateur sur le site
meilleure entreprise de design graphique en Inde
La conception est un art de communiquer des mots comme articulations. Les visuels comptent plus que les mots dans le domaine avancé.
Les experts du secteur de la conception recommandent que les illustrations soient plus simples à retenir que les mots,
et c'est la raison pour laquelle la conception de sites Web et les graphismes jouent un rôle impératif.

Répondre
Rapport
0
0
lecoiffeur
lecoiffeur
Ce commentaire a été minimisé par le modérateur sur le site
Merci d'avoir partagé
Répondre
0
0
Marco
Marco
Ce commentaire a été minimisé par le modérateur sur le site
Bel outil mais j'ai le problème que je ne peux pas convertir les fichiers DOC (écrits en majuscules !) en fichiers docx.
Cela fonctionne avec des fichiers doc.
Répondre
0
0
cristal
cristal     Marco
Ce commentaire a été minimisé par le modérateur sur le site
Bonjour,
Le code suivant peut aider à convertir à la fois doc. et DOC. fichiers dans des fichiers docx. Veuillez essayer. Merci pour vos commentaires.

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
Répondre
Rapport
0
0
Daniel Benes
Daniel Benes
Ce commentaire a été minimisé par le modérateur sur le site
Bonjour
já bych potřeboval, ale script VBA který par fungoval včetně podsložek. Umíte někdo prosím upravit i tento skript ? Dekuji.

ENG:
Bonne journée,
J'aurais besoin d'un script VBA qui fonctionnerait, y compris les sous-dossiers. Quelqu'un peut-il également modifier ce script ? Merci.
Répondre
0
0
cristal
cristal     Daniel Benes
Ce commentaire a été minimisé par le modérateur sur le site
Bonjour Daniel Beneš,
Pour inclure des sous-dossiers, veuillez essayer le code VBA suivant.
Après avoir ajouté le code, accédez au Outils onglet, cliquez sur Références, dans l'ouverture Références - Projet boîte de dialogue, vérifiez le Exécution de scripts Microsoft , puis cliquez sur le OK bouton pour enregistrer les modifications. Voir la capture d'écran suivante :
https://www.extendoffice.com/images/stories/comments/comment-picture-zxm/check-scripting_runtime.png
Après cela, appuyez sur le F5 clé pour exécuter le code.

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
Répondre
Rapport
0
0
Il n'y a pas encore de commentaires postés ici
Laisser vos commentaires
GUEST
Publier en tant qu'invité
Connexion
×
Évaluez cet article:
Réinitialiser
0   Personnages
Emplacements suggérés

Nous suivre

Copyright © 2009 - www.extendoffice.com. | Tous les droits sont réservés. Alimenté par ExtendOffice. | | Plan du site
Microsoft et le logo Office sont des marques commerciales ou des marques déposées de Microsoft Corporation aux États-Unis et / ou dans d'autres pays.
Protégé par Sectigo SSL