Un script pour la conversion de word vers pdf en masse

En essayant de trouver une solution simple pour convertir des word en .pdf en masse sous Windows j'ai trouvé ceci :

'Convert .doc or .docx to .pdf files via Send To menu
Set fso = CreateObject("Scripting.FileSystemObject")
For i= 0 To WScript.Arguments.Count -1
   docPath = WScript.Arguments(i)
   docPath = fso.GetAbsolutePathName(docPath)
   If LCase(Right(docPath, 4)) = ".doc" Or LCase(Right(docPath, 5)) = ".docx" Then
      Set objWord = CreateObject("Word.Application")
      pdfPath = fso.GetParentFolderName(docPath) & "\\" & _
	fso.GetBaseName(docpath) & ".pdf"
      objWord.Visible = False
      Set objDoc = objWord.documents.open(docPath)
      objDoc.saveas pdfPath, 17
      objDoc.Close
      objWord.Quit
   End If
Next

Ce script VB, permet de simplement convertir des word en pdf en appellant une fonction de Word.

Il faut d'abord enregistrer le code en .vbs pour que le script s’exécute :

Vous pouvez ensuite créer une fonction pour le clique droit en enregistrant le script doc2pdf.vbs dans le répertoire suivant (remplacer username par le nom de votre utilisateur) :

C:\Users\%username%\AppData\Roaming\Microsoft\Windows\SendTo

Si vous faites à présent clique droit > Envoyer vers vous aurez à présent le raccourcie doc2pdf.vbs de présent :

Voilà ;)