一、批量将word转为一个pdf
方法一：Word另存为PDF
我们可以将Word另存为PDF文件。首先我们打开要转换的Word文件，然后点击上方的“文件”选择“另存为”选项。
选择后界面会立即弹出另存为PDF的对话框，我们选择“保存类型”为“PDF文件格式”，然后修改转换以后PDF文件的文件名及存放位置，修改完成后点击“保存”就可以将Word另存为PDF文件。因为这个方法不能批量另存为Word文件，所以转换文件的效率会比较低。
方法二：使用PDF转换工具
PDF转换工具也可以转换Word文档为PDF文件格式，这个方法也是简单易操作。我们今天就使用嗨格式PDF转换器来完成Word转PDF。首先我们打开嗨格式PDF转换器，选择转换器中的“文件转PDF”功能。
接着我们选择“文件转PDF”中的“Word转文件。再将自己的Word添加到PDF转换器中。我们可以直接点击中间空白区域，在出现的“打开文件”对话框中选择文件进行添加，还可以将准备好的Word文档拖拽到中间区域进行自动添加。
将Word文件上传完成后，我们接下来需要设置以下文件输出目录。输出目录就是转换成功的PDF文件的保存位置。设置好输出目录后点击“开始转换”就可以完成Word转PDF。嗨格式PDF转换器转换PDF文件不仅转换速度快，转换文件的质量也很好。
方法三：Word复制粘贴到PDF中
我们可以运用在工作中经常使用到的复制粘贴来完成文件的转换。首先我们需要新建一个空白的PDF文件。打开PDF编辑器后，点击“工具”中的“创建PDF”，在“创建PDF”界面中选择“空白页面”并点击“创建”。
在新建的空白PDF文件中，点击右边工具栏中的“编辑PDF”。然后在“编辑PDF”中，点击上方的“添加文本”。接着我们打开要转换的Word文档，将文档中的内容进行复制，再将复制的内容粘贴到PDF文件中即可。这个方法是简单的，但是完成的效果不是很好哦~
二、如何将word批量转换为pdf
方法一：
1、首先需要下载一个word转pdf工具，并安装在自己的电脑中，并创建快捷方式。
2、双击word转pdf工具的快捷方式，进入到工具中去。
3、选择左侧的转换模式，单击“wrod转pdf”按钮即可。
4、单击“添加文件”或"添加文件夹"，选中所有word文件，单击“打开”按钮。
5、下面就需要为转换后的批量pdf文件设置一个保存位置。点选“自定义”，点击后面文件夹图标，选择位置，单击“确定”按钮。
6、完成上述步骤，即可单击工具中的“开始转换”按钮，工具具备自动识别与转换功能。
方法二：
1、首先在百度直接输入pdf转换器，下载一个pdf转换工具，当然也可以在百度安全中心去下载，
2、尽量将软件下载在桌面，这样方便找到，下载完成后双击桌面的快捷方式进入软件，然后单击自己需要转换的文件格式;
3、接下来就可以添加文件了，一次可以添加多个，你可以拖曵、单击添加文件/文件夹，方法很多，大家随意
4、文件添加好后可以看到，转换前确认一下添加的文件是否正确，如果有多添加的可以删除掉;
5、完成后设置一下保存路径，保存路径可以自己随意设置，想保存在哪里就保存在哪里，只要你自己能找到就行;
6、最后点击开始转换，然后等一下就可以了。
三、word怎么批量转成pdf的两种方法
1、office 2003版，需要安装虚拟打印机，打印文件时选择虚拟打印机，将文档打印成PDF文件，或者安装Adobe Acrobat 软件，打开软件，从文件创建PDF---浏览找到需要转换的文件后创建PDF。
2、office2007版，首先需要从官网http://www.microsoft.com/zh-cn/download/details.aspx?id=7 下载另存PDF格式插件，安装后，保存时有PDF格式可选。
3、office 2010 2013或2016版自带输出PDF格式功能。文件----保存并发送----创建PDF文档。
4、wps office 也自带输出PDF格式功能。保存时有PDF格式可选。
5、百度去下载个迅捷pdf转换器就可以了，可以批量的转换。
具体的转换方法如下：
第一步，选择文本模式。在格式转换栏中勾选“word转pdf”。
第二步，点击“添加文件。添加文件中，在弹出的对话框中找到原PDF文件所在的位置，如果是多个文件按住Ctrl键，一一选定文本，点击”打开“就OK啦。
第三步，选择”文件保存路径“。
第四步，单击“开始转换”。这时等到显示转换完成即可。
6、利用WORD的宏批量把WORD转换为PDF
宏代码如下：
Option Explicit
Dim FileAddress As String
Dim TargetAddress As String
Sub Main()
Application.ScreenUpdating = False
Dim tempStr
FileAddress = "C:Userfile "
TargetAddress = "C:Userfile PDF"
tempStr = Dir(FileAddress & "*.docx")
While tempStr <> ""
Documents.Open FileAddress & "" & tempStr
SaveAsPdfFile
Documents(tempStr).Close False
tempStr = Dir
Wend
Application.ScreenUpdating = True
End Sub
Sub SaveAsPdfFile()
Dim strDocName, strPdfName As String
Dim intPos As Integer
' Find position of extension in file name
strDocName = ActiveDocument.Name
intPos = InStrRev(strDocName, ".")
If intPos = 0 Then
' If the document has not yet been saved
' Ask the user to provide a file name
strDocName = InputBox("Please enter the name " & _
"of your document.")
Else
' Strip off extension and add ".txt" extension
strDocName = Left(strDocName, intPos - 1)
strPdfName = strDocName & ".pdf"
End If
' Save file with new extension
ActiveDocument.SaveAs2 FileName:=TargetAddress & strPdfName, _
FileFormat:=wdFormatPDF
End Sub
