Question

word怎么批量转成pdf的两种方法

Answer 1

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