问题仔细描述,如果仅仅把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;
分享到:
相关推荐
在压缩包内的“读取word文档”源码程序中,你可能会看到类似以上代码的实现,通过逐行阅读和理解代码,你可以更深入地了解如何在Delphi中操作Word文档。注意,使用Word Automation可能会消耗较多系统资源,因此在...
通过`d7insertWord`这个示例文件,你可能可以找到更具体的代码示例,进一步学习如何在Delphi 7中实现上述功能。这个压缩包可能包含了一个简单的Delphi项目,演示了如何在运行时动态插入文字和表格到Word文档中。通过...
在IT领域,开发人员经常需要处理各种文档操作,如创建、读取或修改文本文件,其中Word文档是最常见的格式之一。本篇文章将详细介绍如何在Delphi编程环境中利用Ole自动化技术来读取Word文档的内容。 Delphi是一款...
在压缩包中的`使用Delphi 7控制Word 2000生成文档的方法.txt`文件可能包含了更详细的代码示例或教程,你可以结合这个文本文件进一步学习和实践。而`www.pudn.com.txt`可能是来源或者作者信息,对于这个知识点的学习...
OLE技术允许一个程序(客户端)使用另一个程序(服务器)的功能,例如,使用Word组件来创建、读取或修改Word文档。 3. 填写表格功能,指的是在Word文档中通过编程方式在表格的指定单元格里插入或修改数据。在上述...
在实现"Word转Jpg"的过程中,通常会利用Windows API或第三方库来读取Word文档内容,并将其渲染为图像。对于PDF文档,可能需要使用专门的PDF解析库,如Ghostscript或iText,来获取页面内容并转换成图像。 在这个项目...
标签"delphi word document"暗示了这是一个关于Delphi与Word交互的主题,主要涉及的是如何在Delphi程序中读取、操作和显示Word文档。通过以上步骤,你可以实现基本的预览功能,但要根据具体需求进行调整和优化。在...
在 Delphi 开发环境中,有时候我们需要在应用程序中显示 Word 文档的内容,这通常是为用户提供预览功能或在无 Microsoft Office 安装的情况下查看文档。在本文中,我们将深入探讨如何在 Delphi 中实现这一功能。 ...
"Delphi7 读取 Excel 文件" Delphi7 是一个功能强大的开发环境,它提供了多种方式来读取 Excel 文件。在本文中,我们将介绍使用 OLE 和 Excel Application 读取 Excel 文件的方法。 使用 OLE 读取 Excel 文件 ...
在使用DELPHI 2010开发应用程序时,有时候我们需要与Microsoft Word进行交互,例如在程序中直接显示Word文档或者对Word文档进行编辑。这个过程通常涉及到COM组件的使用,因为微软提供了OLE自动化接口,使得其他编程...
关于Delphi7读取保存XML 读取XML,修改节点,保存XML的一个完整实例。
在IT行业中,开发人员经常需要处理各种文档格式的读取和显示,特别是在Windows环境中,使用Delphi这样的高级编程语言来实现Word文档的预览是一项常见的任务。Delphi是一款强大的RAD(快速应用程序开发)工具,它提供...
本教程将深入探讨如何在Delphi中使用OleContainer组件来打开Word文档并实现打印功能。这个过程涉及到几个关键知识点,包括Ole自动化、控件嵌入、对象交互以及打印设置。 首先,了解OleContainer组件。OleContainer...
在delphi中读取word文档,显示缩略图并将文档分页显示。 在csdn 中下载了好几个都不能使用,1.数据存在问题,2.docx格式的word文档提取时,结束符判断错误,该程序包修正了以上两处错误,程序中的一些算法可以参考...
在Delphi编程环境中,开发人员有时需要将应用程序的窗体(Form)与Microsoft Word文档集成,以便实现诸如编辑、查看或者交互式操作Word文档的功能。本文将深入探讨如何在Delphi XE2版本中实现窗体嵌入Word的详细步骤...
标题"用Delphi实现Word文件的预览.rar"揭示了我们讨论的主题,即通过编写Delphi程序来预览Word文档,而不需要实际打开Word应用。这在某些场景下非常实用,比如在多文档处理或批量预览时,可以避免频繁切换应用,提高...
本篇文章将详细探讨如何使用TFileStream类来实现Delphi读取文件流,并结合字节数组进行文件复制。 首先,`TFileStream`是Delphi的System.Classes单元中的一个类,它继承自TStream,提供了对磁盘文件的读写操作。在...
Delphi开发的Word文档批量处理程序,可批量Word文字替换,批量字体修改、批量插入图片,批量合并Word文档、删除指定页等功能,还可以批量新建文档。关于本程序的使用说明: 1、系统将根据样版文件复制成多个文件;...
本示例中,"delphi操作word插入文字图片.rar"是一个压缩包,包含了使用Delphi 10.2实现向Word文档插入文字和图片的代码或项目。这个功能对于自动化文档处理和报告生成尤其有用。 首先,我们需要理解如何在Delphi中...
在Delphi编程环境中,鼠标拖放文件功能是一项实用的技术,它允许用户通过鼠标将文件从一个位置拖放到程序界面上,从而实现文件的快速读取。这个过程涉及到多个Delphi的组件和事件处理,下面我们将深入探讨如何实现这...