[文本处理] 如何将txt、doc文档转换成pdf

会卖萌的大树

我想用虚拟打印机把给的一个文档比如txt，doc打印成pdf，就像word里面提供的那种打印功能，而当我直接print a.txt时，显示无法初始化PRN,请问怎么初始化打印设备？

523066680

回复 1# 会卖萌的大树


    电脑技术研讨  区

会卖萌的大树

回复 2# 523066680
??还请明示

CrLf

这个也许可以，不过我没试过
http://bbs.bathome.net/viewthread.php?tid=16578

会卖萌的大树

回复 4# CrLf

那里面好像没有把其他文档打印成pdf,只是pdf之间的命令，不过还是谢谢你！

CrLf

试试这些
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

盯着这文档看了一晚上，还是搞不明白
http://partners.adobe.com/public ... /sdk/5186AcroJS.pdf

CrLf

这两天刚好要用 AcroExch.PDDoc，领导要求实现快速检索文件内容，于是开始折腾 pdf 批量转 txt，搜到这个：
http://www.cnblogs.com/panzhilei/archive/2010/10/09/1846806.html

会卖萌的大树

查找了半天，自己写了这个，目前就只能把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
复制代码

会卖萌的大树

回复 6# CrLf


    我电脑上不能创建acroExch.PDDoc对象，是我的pdf不是专业版本的原因吗?

CrLf

回复 10# 会卖萌的大树


安装 acrobat 时会注册 acroExch.PDDoc

word 是个好想法，资料多，实现起来容易...
open 支持 txt 吧：
http://blog.sina.com.cn/s/blog_54b0c0ab0100h975.html