delphi读取WORD文档每一页的内容

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；昨天没有测试好 这个应该没有问题了吧 试一下吧。

delphi 怎么把文本信息保存成word文档

建议用报表软件设计然后用软件自带的功能导出就好了，如fastreport3.0

如果要写代码的话，delphi自带的ole container控件很不好用，不适合作这个；Servers里有关word的组件（如wordapplication）可以试试，这个模式除了不能使用VBA宏外其他的功能大都能通过代码实现；还可以纯粹用CreateOleObject创建一个word对象，直接用ole的方式对word进行控制，几乎所有word的功能实现不过由于没有delphi的代码提示，所有异常处理均需要自己编写，可能编写时探索性知识比较多。

转载请注明出处51数据库 » delphiword文本框