Ole1为Ole容器
var
MsWord: Variant;
begin
MsWord := CreateOleObject('Word.Basic');
MsWord.Fileopen('d:\hua\newpaper.doc');;
Msword.Appshow; //可以不要
Msword.AtStartofdocument;
//以下为循环体。
while 文档没有结束前。 do
Begin
Msword.Pagedown(1,1);//参数 1 为1,表示下移一个屏幕
//参数 2 为1,表示下移按住了shift,即选择下移
Msword.EditCopy;
Ole1.Paste; //将内容拷贝到Ole中。
//设Ole1的sizemode为autosize,
Ole1.paintto(..) 到个canvas,
//从canvas中可以做自己的处理。
//这样可以读出每页的内容。
End;
End;
需要注意的是Pagedown(1,1)不是下移一页,如果你想拷贝完整的
一页的话,可以用Linedown(1,1),然后判断是否在同一页内。
var
MsWord: Variant;
begin
MsWord := CreateOleObject('Word.Basic');
MsWord.Fileopen('d:\hua\newpaper.doc');;
Msword.Appshow; //可以不要
Msword.AtStartofdocument;
//以下为循环体。
while 文档没有结束前。 do
Begin
Msword.Pagedown(1,1);//参数 1 为1,表示下移一个屏幕
//参数 2 为1,表示下移按住了shift,即选择下移
Msword.EditCopy;
Ole1.Paste; //将内容拷贝到Ole中。
//设Ole1的sizemode为autosize,
Ole1.paintto(..) 到个canvas,
//从canvas中可以做自己的处理。
//这样可以读出每页的内容。
End;
End;
需要注意的是Pagedown(1,1)不是下移一页,如果你想拷贝完整的
一页的话,可以用Linedown(1,1),然后判断是否在同一页内。
解决方案 »
- 机器里有pascal的进来一下。tp7.0及以下
- 关于bookmark的问题!超级郁闷ing
- dll传递字符串的问题
- 求D7可安装的F1Book6.1
- 新手问题,帮忙一下
- DynamicSkinForm 4.1 for d6 的crack谁有啊?
- 一个字符串,是一个对象的名字,我要得到该对象,怎么做?
- 制作WEB类软件电子商务软件,哪种组合的制作工具最好呢
- 请高手指点?
- 如何编程向手机发AT指令?(无内容)
- 各位高手去看看《!!!!!!!!挑战极限3---修改正在运行的可执行文件(PE)的数据并把他保存在该程序的文件中---!!!!!!!!!!!你能
- 如何动态在form中创建label,并且显示?
TOleContainer有一个Protected 方法Paint。将该方法的一些代码屏蔽掉就可以了:
Canvas.Brush.Style := bsSolid;
Canvas.Brush.Color := Color;
DrawEdge(Canvas.Handle, CR, EDGE_SUNKEN, Flags or BF_MIDDLE);