请教pdf文档转word文档 请问delphi中能实现这样的功能吗?写个小软件,把pdf档转换成word档,delphi中有无相关的组件 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 查看如下链接:http://support.adobe.com/devsup/devsup.nsf/docs/50876.htmVB示例,改成Delphi即可,貌似需要安装一个虚拟的打印机,然后转换即可参考一下:procedure TForm1.Button1Click(Sender: TObject);var wdo, wdoc, wdocs :OleVariant;begin wdo := CreateOleObject('Word.Application'); wdocs := wdo.Documents; wdo.ActivePrinter := 'Acrobat PDFWriter'; wdoc := wdocs.Open('c:\test.doc'); wdoc.PrintOut(0, 0, 0,'c:\test.pdf');end; 1楼的搞反了吧,楼长要的是pdf转doc,而不是doc转pdf 瞎搞!1楼的代码明显是DOC->PDF的转换。 Delphi调用Excel做报表啊 如何获取本地所有IP地址 Teechart的Legend显示每条曲线的标题? 第二个form怎么显示出来啊? delphi程序的问题? 怎样将adoquery查询后的记录,单击后保存或输出为excel文件!!急!要实例!给分! 在Delphi6中使用WebSnap技术开发B/S构架系统 简单算法问题 怎样使dbgrid某一列显示的值与绑定的字段的值不一样 with Control as Tlistbox do 是什么意思? 关于dll加载失败的问题! 判断与服务器的连接成功与否
VB示例,改成Delphi即可,貌似需要安装一个虚拟的打印机,然后转换即可参考一下:
procedure TForm1.Button1Click(Sender: TObject);
var
wdo, wdoc, wdocs :OleVariant;
begin
wdo := CreateOleObject('Word.Application');
wdocs := wdo.Documents;
wdo.ActivePrinter := 'Acrobat PDFWriter';
wdoc := wdocs.Open('c:\test.doc');
wdoc.PrintOut(0, 0, 0,'c:\test.pdf');
end;
1楼的代码明显是DOC->PDF的转换。