问题仔细描述,如果仅仅把word中的内容读取出来,不保存非常的简单。
http://zhidao.baidu.com/question/217275843.html?fr=qrl&cid=93&index=4&fr2=query
uses ComObj,WordXp;
var wordapp, WordDoc, PageRange: Variant;
sContext: string;
i, nPageCounts, nStart, nEnd :
Integer;
begin
wordapp := CreateOleObject('Word.Application');
try
wordapp.Visible := True;
if dlgOpen1.Execute = False then
Exit;
WordDoc := wordapp.Documents.Open(dlgOPen1.FileName);
//文档总页数
nPageCounts :=
wordapp.Selection.Information[wdNumberOfPagesInDocument];
//如果只有一页
那么全选就OK了
if nPageCounts = 1 then
begin
wordapp.Selection.WholeStory;
mmo1.Lines.Add('=============第'+IntToStr(nPageCounts)+'页内容:===================');
mmo1.Lines.Add(wordapp.Selection.Text);
Exit;
end;
nStart := -1;
nEnd := -1;
//循环获取文档页中的内容
for i := 1 to
nPageCounts do
begin
//定位到第i页
PageRange :=
wordapp.Selection.GoTo(wdGoToPage, wdGoToNext, IntToStr(i));
//如果第i页是最后一页 那么直接将光标移动到最后 并输出内容
if i = nPageCounts then
begin
wordapp.Selection.EndKey(wdStory,wdExtend);
sContext
:= WordApp.Selection.Range.Text;
mmo1.Lines.Add('=============第'+IntToStr(i)+'页内容:===================');
mmo1.Lines.Add(sContext);
Exit;
end;
//取第i页的页首位置作为开始位置
nStart := wordapp.Selection.Start;
//定位到i+1页
PageRange := wordapp.Selection.GoTo(wdGoToPage, wdGoToNext,
IntToStr(i+1));
//取第i+1页的页首位置作为结束位置
nEnd :=
wordapp.Selection.Start;
//根据开始位置和结束位置确定文档选中的内容(第i页的内容)
WordDoc.Range(nStart,nEnd).Select;
sContext :=
WordDoc.Range.Text;
//输出内容
mmo1.Lines.Add('=============第'+IntToStr(i)+'页内容:===================');
mmo1.Lines.Add(sContext);
nStart := -1;
nEnd := -1;
end;
finally
wordapp.Quit;
end;
end;
分享到:
相关推荐
delphi7操作word,插入文字,表格
Delphi代码,实现了对Word内容的读取,代码中是按段落读取!
用dephi实现读取Word文档功能,内有源码程序
用Delphi实现Word文件的预览
使用Delphi 7控制Word 2000生成文档的方法.
在delphi中读取word文档,并将文档分页显示。
Delphi实现Word、PDF文档转Image;图片大小可自定义。效果非常好。自己写的,已经用在项目上的。不错的资源。
在delphi中读取word文档,显示缩略图并将文档分页显示。 在csdn 中下载了好几个都不能使用,1.数据存在问题,2.docx格式的word文档提取时,结束符判断错误,该程序包修正了以上两处错误,程序中的一些算法可以参考...
delphi读取文件流delphi读取文件流 tfilestream利用字节数组复制文件
DELPHI 2010 调用word,直接在程序中显示word 的信息。
关于Delphi7读取保存XML 读取XML,修改节点,保存XML的一个完整实例。
Delphi中使用Olecontainer打开Word文档后,并实现打印功能
Delphi操作word文档,实现word功能
Delphi开发的Word文档批量处理程序,可批量Word文字替换,批量字体修改、批量插入图片,批量合并Word文档、删除指定页等功能,还可以批量新建文档。关于本程序的使用说明: 1、系统将根据样版文件复制成多个文件;...
delphi 鼠标拖放文件 读取文件 直接拖放读取文件 拖动读取文件
转载:delphi7如何读取excel文件 用ole可以解决 用delphi提供 servers选项 第三方的表格控件可以直接读取excel的数据
delphi用ole方式操作word, 环境delphiXE,支持word2010 Word 97 - 2003
delphi+mysql 在dbgrid上实现分页显示
Delphi7写的读取JPEG文件Exif信息的类(含中文注释及Exif v2.3官方文档,含显示TIF格式的GraphicEx库) 支持JPEG格式的缩略图读取,TIF格式的暂时未遇到,不知正确与否。 记录为摩托罗拉CPU格式的Exif信息暂时未遇到...
Delphi版Word文档批量合并、文字替换、修改、插入图片程序