作者：乔山办公网日期：
返回目录：office365
打开Word文档，点击界面右上角的【文件百】。在文件功能界面，选择【导出】，然后点击右侧的【度创建PDF/XPS】按钮。
进入保存界面之后，按照需要设置文问件的存放位置和文件名，最后点击发布。答转换完成版，会自动打开PDF。
除了这种操作方法，我们也可以在文件功能区，点击【另存为】，选取好存权放位置之后，在弹出窗口选择保存类型为【PDF】，最后点击保存即可。
方法/步骤
1、首先需要下载一个word转pdf工具，并安装在自己的电脑中，并创建快捷方式。
2、双击word转pdf工具的快捷方式，进入到工具中去。
3、选择左侧的转换模式，单抄击“wrod转pdf”按钮即可。
4、单击“添加文件”或"添加文件夹"，选中所有word文件，单击袭“打开”按钮。
（也可以选中文件，将文件直接拖拽百进来）
5、下面就需要为转换后的批量pdf文件设置一个保存位置。点选“自定义”，点击后面文件夹图标，选择位置，单击“确定”按钮。
6、完成上述步骤，即可单击工具中的“开始转换”按钮，工具具备自动识别与转换功能。
7、转换完成后，工具会有提示。或看到状态栏处显示为：100%，则意味着转换成功。
8、最后可以去之前设置好的位置找到批量度pdf文件，打开后就可以进行浏览、阅读了。
9、小编此次的技巧分享到这里就结束了，不会的可以多看几遍，希望能够帮助到需要的你。
出现这种错乱情况有时也可能是因为不同office软件不兼容，打开文档后显示排版不同，所以我们也可以借助来专门的转换软件来处理，避免这种情况的发生。
打开浏览器搜索Speedpdf后，源打开Speedpdf在线转换官网，点击首页推荐中的zhidao“Word to pdf”
接着根据页面提示上传需要转换的Word文档后，点击“convert”即可开始转换，转换完成点击下载即可。
1、office 2003版，需要安装虚拟打印机，打印文件时选择虚拟打印机，将文档打印成PDF文件，或者安装Adobe Acrobat 软件，打开软e5a48de588b6e799bee5baa6330件，从文件创建PDF---浏览找到需要转换的文件后创建PDF。
2、office2007版，首先需要从官网http:///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