Word to PDF Batch Conversion

I needed to convert a bunch of Word files to pdf. I found this visual basic code that basically opens all files one after another in Word and saves a pdf version.

'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
vbs file

Just save it as a vbs somewhere and add a ahortcut to the context menu.

C:\Users\%username%\AppData\Roaming\Microsoft\Windows\SendTo
Context Menu Entry

You can select multiple files at once and they get converted one by one.