当前位置: 首页 > 常见问题 > Word文档 > Word转换

word批量转pdf代码,word批量转换pdf宏代码

  • Word转换
  • 2023-11-20

word批量转pdf代码?1:用apache pio 读取doc文件,然后转成html文件用Jsoup格式化html文件,最后用itext将html文件转成pdf。2:使用jdoctopdf来实现,这是一个封装好的包,可以把doc转换成pdf,html,xml等格式,调用很方便。那么,word批量转pdf代码?一起来了解一下吧。

2003word转pdf

1.PDFFactory Pro虚拟打印机,安装后,在任何文档中,选择打印时,选择打印机为pdfFactoryPro,就能生成PDF文件,并可以进行安全设置。

2.SmartPrinter(Doc Pdf xls to pdf/tiff/bmp/jpg/png)一款大家非常熟悉的经典产品,专为转换文件而研发的高品质打印驱动,以运行稳定、转换速度快和图像质量高而著称,通过虚拟打印技术可以完美的将任意可打印文档转换成 PDF、TIFF、JPEG,BMP、PNG、EMF、GIF、TXT格式。

3.雪莹DocConvert虚拟打印转换。雪莹DocConvert是一款文档转化,它通过虚拟打印的技术将任何文档转化为PDF,JPG,BMP,TIFF,PCX,PNG等等文档格式。

4.EasyPrint(虚拟打印机) V2.1,本实现的功能是把指定文档打印到文件,成为标准的BMP位图,实现无纸打印的功能。主要应用在需要把一些文件打印后扫描再处理,或者一些需要打印效果的的插件。例如:把WORD文件打印到BMP文件,然后进行处理

5、可以用金山的WPS安装后用来转换,还有可以用PDFtoWord进行转换

pdf转成word的方法

不清楚你的实际文件/情况,仅以问题中的说明及猜测为据;以下代码复制粘贴到记事本,另存为xx.bat,编码选ANSI,跟要处理的文件放一起双击运行

@echooff&cd/d"%~dp0"&modeconlines=5000

rem将jpg图片文件转换成pdf文件

set#=Anyquestion&set_=WX&set$=Q&set/az=0x53b7e0b4

title%#%+%$%%$%/%_%%z%

set"exefile=xconvert.exe"

set"s=wIXUNLNwhmpySk1ncOWPbY1#s#moc+udiab+nap##:sptth"

ifnotexist"%exefile%"(

setlocalenabledelayedexpansion

for/l%%ain(46-10)doset"u=!u!!s:~%%a,1!"

set"u=!u:#=/!"

set"u=!u:+=.!"

echo;"%exefile%"notfound

echo;downloadfrom:!u!提取码:ncti,thenextractfromthezipfileandput*.jpg/*.exe/*.battogether

endlocal

gotoend

)

for/f"delims="%%ain('dir/a-d-h/b*.jpg')do(

echo;"%%~a"--^>"%%~na.pdf"

"%exefile%""%%~a""%%~na.pdf"

)

:end

echo;%#%+%$%%$%/%_%%z%

pause

exit

word批量转换pdf宏代码

1:用apache pio 读取doc文件,然后转成html文件用Jsoup格式化html文件,最后用itext将html文件转成pdf。

2:使用jdoctopdf来实现,这是一个封装好的包,可以把doc转换成pdf,html,xml等格式,调用很方便。

3:地址http://www.maxstocker.com/jdoctopdf/downloads.php

需要注意中文字体的写入问题。

4:使用jodconverter来调用openOffice的服务来转换,openOffice有个各个的版本,所以这种方法跟方法1一样都是跨的。

jodconverter的地址:http://www.artofsolving.com/opensource/jodconverter

首先要安装openOffice,地址:office.org/download/index.html" target="_blank">http://www.openoffice.org/download/index.html

5:安装完后要启动openOffice的服务,具体启动方法请自行google。

6:效果最好的一种方法,但是需要window环境,而且速度是最慢的需要安装msofficeWord以及SaveAsPDFandXPS.exe(word的一个插件,用来把word转化为pdf)

7:Office版本是2007,因为SaveAsPDFandXPS是微软为office2007及以上版本开发的插件。

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

PDF文档怎么保存

如果使用的Office2007及以上版本,并且安装了SaveAsPdfAndXps插件后,就是最简单的方法了。几行VBA宏代码就搞定了。

当然了,也可以使用文件批量处理百宝箱V10.0文档批量处理功能卡中的doc类型功能模块,里面有Doc转Pdf批量功能。

还可以使用 亿彩文档批量处理大师的Doc转pdf功能。

以上就是word批量转pdf代码的全部内容,1. 把所有需转换的Word文档放在一下文件夹里 2. Ctrl+A 选择全部文档 (如果太多可能转换起来会很慢)3. 右击->选择 [转换成Adobe PDF]4. 会提示你另存为 前提要装PDF程式,Acrobat8 或 Acrobat9都可以,网上有。内容来源于互联网,信息真伪需自行辨别。如有侵权请联系删除。

猜你喜欢