200分求解--史上最难课题之：WORD转JPG！！

yf520gn 2009-06-09 05:42:26

现因业务需要，需要将word文档转换为jpg图像。本人苦思冥想2天未得答案，望坛子里的各位高手不吝赐教！
最好能有些代码。
在下先行谢过了！

...全文

11665 31 打赏收藏转发到动态举报

写回复

用AI写文章

31 条回复

切换为时间正序

请发表友善的回复…

发表回复

foreverhot1019 2010-08-05

打赏
举报

[Quote=引用 4 楼 sqrkim 的回复:]
MARK LZ若有了结果分享啊。
[/Quote]

第三种不需要人工操作在程序中用drawing 将image 转换成其他图片格式

yongch2010 2010-07-24

打赏
举报

这个问题曾困扰过我，但已经完美解决了；
adobe acrobat professional，这款软件可以完美地把WORD文档整体转换成JPG格式，而且速度极快，图像清晰，并且刚好与打印出来的效果一样；操作方法是先装一下这个软件，打开要转换的WORD文档，按“转换成PDF”，就会转成PDF文档，再把这个PDF文档输出为图片，即可，好简单！

Think-In-C 2010-07-15

打赏
举报

一年后的今天，我也需要实现这个功能，而且十分变态，变态到何种程度呢？我给你列一下。
把一个TREE(或者说EXCEL)转换成：WORD,EXCEL,HTML,TXT,PPT,CSV,MHT,JPG,BMP,PDF.
我觉得我可以去写一个转换软件了。
这个需求真他妈的变态，更变态的是怎么会让我来实现这个需求？

chinamis2008 2009-06-20

打赏
举报

学习@

yf520gn 2009-06-11

打赏
举报

又搞了2天，终于实现了，但是目前还没有考虑多页WORD的情况，只对第一页进行转换，代码拿出来和大家共享，如果以后有时间，我会考虑完善一下功能，做为一个开源小软件发布出去。谢谢坛子里的各位兄弟参与讨论！
主要使用了SERVERS面板里的WordApplication控件：



procedure wordtojpg(fileparth:string);

var

   bmp:TPicture;

   FileName,ConfirmConversions,ReadOnly,AddToRecentFiles,

PasswordDocument,PasswordTemplate, Revert,

WritePasswordDocument,WritePasswordTemplate,Format:OleVariant;

SaveChanges, OriginalFormat, RouteDocument: OleVariant;

begin

    try

             dmMain.WordApplication1.Connect;

             dmMain.WordApplication1.Visible:=false;

             FileName:=fileparth+'.doc';

             ConfirmConversions:=False;

             ReadOnly:=False;

             AddToRecentFiles:=False;

             PasswordDocument:='';

             PasswordTemplate:='';

             Revert:=True;

             WritePasswordDocument:='';

             WritePasswordTemplate:='';

             Format:=wdOpenFormatDocument;

             SaveChanges := WdDoNotSaveChanges; 

             OriginalFormat := UnAssigned;

             RouteDocument := UnAssigned;

             dmMain.WordApplication1.Documents.Open(FileName,ConfirmConversions,ReadOnly,AddToRecentFiles,PasswordDocument,PasswordTemplate,Revert,WritePasswordDocument,WritePasswordTemplate,Format,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam);

             dmMain.WordApplication1.Selection.WholeStory;

             dmMain.WordApplication1.Selection.CopyAsPicture;

             sleep(500);

             bmp := TPicture.Create;

             bmp.Assign(ClipBoard);

             clipboard.Close;

             bmp.SaveToFile(fileparth+'.jpg');

    finally

            bmp.Free;

            dmMain.WordApplication1.Documents.Close(SaveChanges, OriginalFormat, RouteDocument);

            dmMain.WordApplication1.Quit(SaveChanges, OriginalFormat, RouteDocument);

            dmMain.WordApplication1.Disconnect;

    end;

end;

林石公 2009-06-11

打赏
举报

哇，史上最难课题啊

chinamis2008 2009-06-11

打赏
举报

装个JPG打印机，然后调用WORD 的打印命令直接打印就好了！

Harryfin 2009-06-11

打赏
举报

[Quote=引用 22 楼 sz_haitao 的回复:]
回车换行符、空格可以有选项可以关掉的
[/Quote]
还要结合VBA来搞?

Harryfin 2009-06-10

打赏
举报

直接截图会把那些回车换行符都显示出来

yf520gn 2009-06-10

打赏
举报

[Quote=引用 18 楼 heikeyanxi 的回复:]
晕，转过来的图片这么大 - -！
[/Quote]
对，这就是我想要的结果，可能还要考虑分页问题，能否给出一段示例代码呢？

李_军 2009-06-10

打赏
举报

如果是rtf文字格式转换倒是可以用代码实现

Rabbit.X. 2009-06-10

打赏
举报

看了，难!~

haitao 2009-06-10

打赏
举报

回车换行符、空格可以有选项可以关掉的

heikeyanxi 2009-06-09

打赏
举报

晕，转过来的图片这么大 - -！

heikeyanxi 2009-06-09

打赏
举报

截屏的方法为什么不行，你所说的“无法回避工具栏和屏幕上的东西”是因为你考虑的是用手在屏幕上拖拽截图，但是你想到没有可以只截取word窗口的子窗口即只截取word编辑区部分。给你提供个思路；编写程序依次打开某个目录中的word格式的文档，打开后获取该文档窗口的句柄，然后再获取该句柄的子窗口（word编辑区的类名是"_WwG"），然后在用这个句柄采用滚动截屏，截屏完毕后程序自动保存并命名该图片，然后自动关闭该word文档；然后再次打开下一个word文档，然后再获取word编辑区的句柄，再滚动截屏，保存图片.........这样一个流程。完全可以实现自动化。
下面是我把word文档转成图片的例子，看图片：
这应该就是你想要的效果吧？