请教pdf文档转word文档

[chdaner]

请问delphi中能实现这样的功能吗？

写个小软件，把pdf档转换成word档,delphi中有无相关的组件

[kampan]

查看如下链接：http://support.adobe.com/devsup/devsup.nsf/docs/50876.htm
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楼的搞反了吧,楼长要的是pdf转doc,而不是doc转pdf

[贝隆]

[Quote=引用 1 楼 kampan 的回复:]
查看如下链接：http://support.adobe.com/devsup/devsup.nsf/docs/50876.htm
VB示例，改成Delphi即可，貌似需要安装一个虚拟的打印机，然后转换即可

参考一下：Delphi(Pascal) codeprocedure 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;


[/Quote]

真的不错！

[PANTI]

真能行吗?

[gwhdaxia]

关注

[chdaner]

[Quote=引用 1 楼 kampan 的回复:]
查看如下链接：http://support.adobe.com/devsup/devsup.nsf/docs/50876.htm
VB示例，改成Delphi即可，貌似需要安装一个虚拟的打印机，然后转换即可

参考一下：Delphi(Pascal) codeprocedure 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;


[/Quote]


这个虚拟打印机应该怎么做呢？

[墨梅无痕]

瞎搞！
1楼的代码明显是DOC->PDF的转换。

[wuhenghuan]

使用PDF（控件，OCX，引擎）