Christian a un dossier rempli de fichiers DOC dont il a besoin pour convertir en fichiers DOCX. Il se demande s’il existe un moyen rapide de les convertir sans les ouvrir et les enregistrer individuellement.

Microsoft ne fournit pas cette fonctionnalité dans Word, ni ne fournit un complément pour effectuer les conversions. Vous pouvez cependant créer votre propre macro pour effectuer les conversions. Une approche assez simple est présentée ici:

Sub ConvertBatchToDOCX()

Dim sSourcePath As String     Dim sTargetPath As String     Dim sDocName As String     Dim docCurDoc As Document     Dim sNewDocName As String

' Looking in this path     sSourcePath = "c:\Users\Administrator\Desktop\Testing\"

sTargetPath = "c:\Users\Administrator\Desktop\Converted\"



' Look for first DOC file     sDocName = Dir(sSourcePath & "*.doc")

Do While sDocName <> ""

' Repeat as long as there are source files                  'Only work on files where right-most characters are ".doc"

If Right(sDocName, 4) = ".doc" Then             ' Open file             Set docCurDoc = Documents.Open(FileName:=sSourcePath & sDocName)



sNewDocName = Replace(sDocName, ".doc", ".docx")



With docCurDoc                 .SaveAs FileName:=sTargetPath & sNewDocName, _                   FileFormat:=wdFormatDocumentDefault                 .Close SaveChanges:=wdDoNotSaveChanges             End With         End If         ' Get next source file name         sDocName = Dir     Loop     MsgBox "Finished"

End Sub

Pour utiliser la macro, vous devrez apporter deux modifications. Tout d’abord, spécifiez dans la variable sSourcePath le chemin complet (suivi d’une barre oblique inverse) vers le répertoire qui contient les fichiers à convertir.

Ensuite, dans la variable sTargetPath, spécifiez le chemin complet (avec une barre oblique inverse à la fin) du répertoire dans lequel les documents convertis doivent être stockés.

La macro parcourt ensuite tous les fichiers DOC qu’elle trouve dans le répertoire source, les ouvre et les enregistre en tant que fichiers DOCX dans le répertoire cible.

Notez que j’ai mentionné que c’est une approche simple. La raison en est qu’il ne vérifie aucune erreur sur son travail. Par exemple, si vous exécutez cette macro deux fois de suite, vous obtiendrez des erreurs car les fichiers enregistrés dans le répertoire cible existent déjà. En outre, vous devez comprendre que cela convertit tous les fichiers DOC en fichiers DOCX. En d’autres termes, si le fichier d’origine contient des macros, ces macros seront supprimées lors du processus de conversion.

Enfin, notez que le cœur de la macro est contenu dans une structure If / Then qui vérifie que les 4 caractères les plus à droite du nom de fichier sont réellement « .doc ». Ceci est fait à cause du comportement plutôt aggravant de la fonction Dir sur certains systèmes où la recherche du modèle « * .doc » retournera comme correspondance tout nom de fichier contenant _ .doc. Cela signifie qu’il renvoie également les fichiers se terminant par .docx et .docm. Évidemment, ceux-ci ne doivent pas être convertis, donc la structure If / Then est incluse pour les éliminer.

Si vous préférez ne pas utiliser votre propre macro, il existe des solutions tierces que vous pouvez utiliser. La page suivante sur le site de Graham Mayor propose un complément gratuit qui effectuera, entre autres, la conversion du document:

http://www.gmayor.com/document_batch_processes.htm

Vous pourrez peut-être trouver d’autres convertisseurs similaires en effectuant une recherche sur le Web pour « doc docx converter » (sans les guillemets).

_Note: _

Si vous souhaitez savoir comment utiliser les macros décrites sur cette page (ou sur toute autre page des sites WordTips), j’ai préparé une page spéciale qui comprend des informations utiles.

lien: / wordribbon-WordTipsMacros [Cliquez ici pour ouvrir cette page spéciale dans un nouvel onglet de navigateur].

WordTips est votre source pour une formation Microsoft Word rentable.

(Microsoft Word est le logiciel de traitement de texte le plus populaire au monde.) Cette astuce (643) s’applique à Microsoft Word 2007, 2010, 2013 et 2016.