如何打开DOC文件(300分)

  • 主题发起人 主题发起人 天真
  • 开始时间 开始时间
天

天真

Unregistered / Unconfirmed
GUEST, unregistred user!
如何打开DOC后，
把里面的内容以图片的形式保存下来？

分不够可以再加
 
用word打开,抓屏,粘贴到任何一个画图软件或者Word里
 
楼上所说，可在delphi编程实现，如果doc文件是RTF子集，可用RXRichEDit控件读入，并可转换为图像。
 
用纯编程的方法不是太好办的，
Word也没有可把自己的内容保存为图片的功能。
 
但Word可以保存为网页，
这是否能满足要求？
 
有人已经用编程实现了，
所以我想知道方法
 
读入RxRichEdit中
参考：http://www.delphibbs.com/delphibbs/dispq.asp?lid=1114791

 
打印一下，按这个思路做。
 
将这段VBA改成Delphi的就可以了，不过还是有点问题。
该示例将活动文档的内容复制为图片，并将其作为图片粘贴到文档的结尾。

Sub CopyPasteAsPicture()
ActiveDocument.Content.Select
With Selection
.CopyAsPicture
.Collapse Direction:=wdCollapseEnd '如果你要简单的复制，这个就没用了
.PasteSpecial DataType:=wdPasteMetafilePicture '如果你要简单的复制，这个就没用了
End With
End Sub
 
能否把文档分页COPY成图片，保存成不同的名字？
 
用OLE处理，应该不难
 
你选中哪些（ ActiveDocument.Content.Select），就可以拷贝那些（Selection.CopyAsPicture）
下面的问题就编程了如何选中一页Word文件了，这个应该不难了。
 
呵呵，好的，YZHSHI兄，
最近还忙吗？
到时候还有事要麻烦你啊：）
 
55555555555，没有用过：（
 
慢慢来，其实我所知道的在我写的那个帖子里面基本都说了。
你看一下，主要是自己通过宏来“窃取”，同时再看VBA的那几个帮助文件。
 
这个我倒知道，只是我不知道如何取得页数呢
 
文档页数：
n := WordApplication1.Selection.Information[wdNumberOfPagesInDocument];

移动光标到指定页首:
procedure GotoPageNumber(WrdApp: TWordApplication;PageNumber:OleVariant);
var
what,which,Count:OleVariant;
begin
what:=wdGoToPage;
which:=wdGoToNext;
Count:=WrdApp.Selection.Information[wdNumberOfPagesInDocument];
WrdApp.Selection.GoTo_(what,which,Count,PageNumber);
end;

 
您必须登录或注册才可回复。

Similar threads

Ray
[转]终于可以发布Delphi下收点OSGI精髓皮毛而设计的插件框架WisdomPluginFramework
回复
4
查看
4K
chlkuei
C
E
如何将*.DOC转为*.HTML格式(内容如题)?(200分)
回复
2
查看
147
exceed
E
T
用WebBrowser打开WORD文件时如何屏蔽掉选择打开、保存的对话框(100分)
回复
4
查看
269
talentboy
T
香
★★★如何用OLE打开jpg文件？(25分)
回复
4
查看
112
悟峰
悟
B
关于OLE中文件保存和释放的问题(300分)
回复
5
查看
183
xjxdelphi
X
后退
顶部