WORD文档批量转PDF

在办公中，我们经常需要将Word文档转换成PDF文件，无论是为了格式统一、文件稳定性，还是为了防止内容被轻易修改。
如果你只有几个Word文档需要转换成PDF，可以直接通过“另存为”来转换，如果你手头有几十甚至上百份Word文件要处理时，一个一个另存为PDF，效率实在太低。
别急，其实批量转换Word为PDF，并不复杂，只要用对方法，几分钟就能完成大批量转换，下面一起来看看吧！

办公必备技巧：如何批量将Word文档转换成PDF

方法1：使用WPS

WPS办公软件具备Word转PDF功能，同时也支持批量转换。

操作步骤：

1、通过WPS打开其中一个需要转换格式的Word文档，然后点击菜单选项卡【文件】，再选择【输出为PDF】；

image.png

2、弹出对话框后，点击【添加文件】可以从电脑中选择需要转换的 Word 文档，你可以按住 “Ctrl” 键，依次点击选中多个文件；也可以按下 “Ctrl + A”全选文件夹内的所有 Word 文件；

点击【保存位置】可以选择转换后文件的保存路径，最后点击【开始输出】即可完成转换。

image.png

方法2：使用插件Word批量转换成PDF.rar

方法3：编程使用简短代码便可实现word批量转pdf

1、新建一个文本文件（后缀为.txt），准备将转换代码粘贴进去。

2、将以下代码复制并粘贴到文本文件中，注意行与行之间不要有空行哦！

'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

3、将文本文件的扩展名从.txt改为.vbs，这样它就可以作为脚本运行了。

4、将需要转换的Word文档和这个.vbs文件放在同一个文件夹中。

5、将word文档拖入到脚本中，稍等片刻，便可得到转换后的pdf文档。

方法4：使用插件Word批量转换成PDF.rar

STPE 1：新建空白文档，无需保存；

STPE 2：文件 -> 选项 -> 自定义功能区 -> 勾选开发工具；

STPE 3： 在word界面选择 “开发工具” ，插入 -> 模块，复制粘贴代码；

开发工具.png

模块.png

Sub ConvertWordsToPdfs()  
  'Updated by Extendoffice 20181123
   Dim xIndex As String
  Dim xDlg As FileDialog
  Dim xFolder As Variant
  Dim xNewName As String
  Dim xFileName As String
    Set xDlg = Application.FileDialog(msoFileDialogFolderPicker)
    If xDlg.Show <> -1 Then
    Exit Sub
  End If
    xFolder = xDlg.SelectedItems(1) + "\"
    xFileName = Dir(xFolder & "*.*", vbNormal)
    While xFileName <> ""
      If ((Right(xFileName, 4)) <> ".doc" Or Right(xFileName, 4) <> ".docx") Then
          xIndex = InStr(xFileName, ".") + 1
      xNewName = Replace(xFileName, Mid(xFileName, xIndex), "pdf")
            Documents.Open FileName:=xFolder & xFileName, _
        ConfirmConversions:=False, ReadOnly:=False, AddToRecentFiles:=False, _
        PasswordDocument:="", PasswordTemplate:="", Revert:=False, _
        WritePasswordDocument:="", WritePasswordTemplate:="", Format:= _
        wdOpenFormatAuto, XMLTransform:=""
        
      ActiveDocument.ExportAsFixedFormat OutputFileName:=xFolder & xNewName, _
        ExportFormat:=wdExportFormatPDF, OpenAfterExport:=False, OptimizeFor:= _
        wdExportOptimizeForPrint, Range:=wdExportAllDocument, From:=1, To:=1, _
        Item:=wdExportDocumentContent, IncludeDocProps:=True, KeepIRM:=True, _
        CreateBookmarks:=wdExportCreateNoBookmarks, DocStructureTags:=True, _
        BitmapMissingFonts:=True, UseISO19005_1:=False

      ActiveDocument.Close
        End If
        xFileName = Dir()
      Wend
  End Sub

STPE 4： 运行代码，选择包含所需转换的Word文档的文件夹。
文件夹内所有word文档都将转化为pdf格式

image.png