标题: [文本处理] 如何将txt、doc文档转换成pdf [打印本页]
作者: 会卖萌的大树 时间: 2014-8-26 13:09 标题: 如何将txt、doc文档转换成pdf
本帖最后由 pcl_test 于 2016-9-9 14:45 编辑
我想用虚拟打印机把给的一个文档比如txt,doc打印成pdf,就像word里面提供的那种打印功能,而当我直接print a.txt时,显示无法初始化PRN,请问怎么初始化打印设备?
作者: 523066680 时间: 2014-8-26 13:57
回复 1# 会卖萌的大树
电脑技术研讨 区
作者: 会卖萌的大树 时间: 2014-8-26 14:06
回复 2# 523066680
??还请明示
作者: CrLf 时间: 2014-8-26 14:51
这个也许可以,不过我没试过
http://bbs.bathome.net/viewthread.php?tid=16578
作者: 会卖萌的大树 时间: 2014-8-26 21:00
回复 4# CrLf
那里面好像没有把其他文档打印成pdf,只是pdf之间的命令,不过还是谢谢你!
作者: CrLf 时间: 2014-8-26 23:55
试试这些
http://www.oschina.net/p/poppler/
http://www.docin.com/p-586462860.html
话说搜到还可以使用 acrobat 的 com 组件,貌似是个可行的方向,不过用 tli 和 powershell 都没能看到这个 com 组件有什么方法和属性
http://bettysmu.blog.163.com/blog/static/1311891220086143444151
试了试不知道怎么从 txt 生成 pdf:- Set pdf = CreateObject("AcroExch.PDDoc")
- pdf.Open "d:\a.txt"
- '测试打开 pdf 是可以的
- pdf.Save 1,"d:\a.pdf"
- pdf.Close
复制代码
作者: CrLf 时间: 2014-8-26 23:58
盯着这文档看了一晚上,还是搞不明白
http://partners.adobe.com/public ... /sdk/5186AcroJS.pdf
作者: CrLf 时间: 2014-8-28 02:08
本帖最后由 CrLf 于 2014-8-28 02:10 编辑
这两天刚好要用 AcroExch.PDDoc,领导要求实现快速检索文件内容,于是开始折腾 pdf 批量转 txt,搜到这个:
http://www.cnblogs.com/panzhilei/archive/2010/10/09/1846806.html
作者: 会卖萌的大树 时间: 2014-8-29 19:31
本帖最后由 会卖萌的大树 于 2014-8-31 08:49 编辑
查找了半天,自己写了这个,目前就只能把word转化为pdf,利用是word的另存为功能在接着试其他类型的文档- On Error Resume Next
- If WScript.Arguments.Count = 0 Then
- WScript.Echo "Usage :print2Pdf docPath pdfPath"
- WScript.Quit
- Else
- Dim oWord,objFile,docPath,pdfPath
- docPath = WScript.Arguments.Item(0)
- pdfPath = WScript.Arguments.Item(1)
- Set oWord = CreateObject("word.application")
- oWord.Visible=false
- Set objFile=oWord.Documents.open(docPath)
- objFile.SaveAs2 pdfPath,17
- objFile.Close
- oWord.Quit
- End If
复制代码
作者: 会卖萌的大树 时间: 2014-8-29 19:33
回复 6# CrLf
我电脑上不能创建acroExch.PDDoc对象,是我的pdf不是专业版本的原因吗?
作者: CrLf 时间: 2014-8-29 20:00
回复 10# 会卖萌的大树
安装 acrobat 时会注册 acroExch.PDDoc
word 是个好想法,资料多,实现起来容易...
open 支持 txt 吧:
http://blog.sina.com.cn/s/blog_54b0c0ab0100h975.html
欢迎光临 批处理之家 (http://bbs.bathome.net/) |
Powered by Discuz! 7.2 |