admin管理员组

文章数量:1605608

本方法可在系统文件夹中，将文件夹里的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文档。

转换后的格式如下：

本文标签： 便可简短批量代码PDF

版权声明：本文标题：使用简短代码便可实现word批量转pdf 内容由热心网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：https://m.elefans.com/dongtai/1728481157a1160115.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。