使用简短代码便可实现word批量转pdf

本方法可在系统文件夹中，将文件夹里的word文档批量转换成pdf格式，且无需借助工具。

代码如下：

'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的格式进行保存：

点击保存，即可得到脚本文件：

将该脚本复制到需要转换的word文档所在文件夹中，可将word文档拖入到脚本中，稍等片刻，便可得到转换后的pdf文档。

转换后的格式如下：