怎样批量将Word转成PDF格式?
发布网友
发布时间：2022-04-23 00:09
共4个回答
热心网友
时间：2022-05-31 15:34
除了这种操作方法，我们也可以在文件功能区，点击【另存为】，选取好存放位置之后，在弹出窗口选择保存类型为【PDF】，最后点击保存即可。
可以借助第三方专业软件进行操作，比如嗨格式PDF转换器，它可以帮助我们将Word、PPT、Excel、图片等各类型的文件转换成PDF格式。要是没有专门的PDF制作软件，就可以用它将平时用的Word、PPT、Excel等这些文件转换成PDF格式文件。
【嗨格式PDF转换器】
热心网友
时间：2022-05-31 15:35
出来职场，具备文件格式转换的操作能力很有必要，关于文档格式是如何转换的？方法是什么？下面就跟着小编一起来学习吧！以下以word转成PDF为例，将操作步骤分享如下，希望能帮到大家哦！
借助工具：闪电PDF转换器
操作方法：
第一步、双击打开以下工具，在左侧选择“其他文件转换成PDF”-“Word转成PDF”。
第二步、接着，点击“添加文件”，将需要转换格式的文档一次添加进来。
第三步、加载完成后，在输出目录中，勾选“自定义”按钮可选择文件导出位置。
第四步、最后，直接点击软件右上角的“开始转换”即可。
第五步、得到以下提示后，说明转换成功。
第六步、找到PDF文件，预览便可。
热心网友
时间：2022-05-31 15:35
如果在将word文件处理完成之后，需要将编辑好的word文件转换成PDF格式，而且还是批量进行转换的，不烦可以试试下面这种方法!
1、先打开一个pdf转换器，选择转换格式——word转pdf；
2、格式选择好格式之后把要转换的word文档添加进来，点击添加文件就可以批量添加所要转换格式的Word文件。
3、文档添加完成之后单击开始转换就可以了。
热心网友
时间：2022-05-31 15:36
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
