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

uses ComObj,WordXp;

var wordapp, WordDoc, PageRange: Variant;

sContext: string;

i, nPageCounts, nStart, nEnd : Integer;

begin

wordapp := CreateOleObject('WordApplication');

try

wordappVisible := True;

if dlgOpen1Execute = False then Exit;

WordDoc := wordappDocumentsOpen(dlgOPen1FileName);

//文档总页数

nPageCounts := wordappSelectionInformation[wdNumberOfPagesInDocument];

//如果只有一页 那么全选就OK了

if nPageCounts = 1 then

begin

wordappSelectionWholeStory;

mmo1LinesAdd('=============第'+IntToStr(nPageCounts)+'页内容：===================');

mmo1LinesAdd(wordappSelectionText);

Exit;

end;

nStart := -1;

nEnd := -1;

//循环获取文档页中的内容

for i := 1 to nPageCounts do

begin

//定位到第i页

PageRange := wordappSelectionGoTo(wdGoToPage, wdGoToNext, IntToStr(i));

//如果第i页是最后一页 那么直接将光标移动到最后 并输出内容

if i = nPageCounts then

begin

wordappSelectionEndKey(wdStory,wdExtend);

sContext := WordAppSelectionRangeText;

mmo1LinesAdd('=============第'+IntToStr(i)+'页内容：===================');

mmo1LinesAdd(sContext);

Exit;

end;

//取第i页的页首位置作为开始位置

nStart := wordappSelectionStart;

//定位到i+1页

PageRange := wordappSelectionGoTo(wdGoToPage, wdGoToNext, IntToStr(i+1));

//取第i+1页的页首位置作为结束位置

nEnd := wordappSelectionStart;

//根据开始位置和结束位置确定文档选中的内容（第i页的内容）

WordDocRange(nStart,nEnd)Select;

sContext := WordDocRangeText;

//输出内容

mmo1LinesAdd('=============第'+IntToStr(i)+'页内容：===================');

mmo1LinesAdd(sContext);

nStart := -1;

nEnd := -1;

end;

finally

wordappQuit;

end;

end;

昨天没有测试好 这个应该没有问题了吧 试一下吧

有java版的word但我感觉极其不好用，兼容性差，你可以把word直接在电脑上转存为txt。其他还真没什么好办法。google有在线办公，不知能够通过Opera 或 UC访问再转换，你可以试着弄弄。

打开Excel表格，选择需要导出的表格区域。

在菜单栏中选择“复制”或使用快捷键“Ctrl+C”复制表格。

打开Word文档，将光标定位到你想插入Excel表格的位置。

在菜单栏中选择“粘贴”或使用快捷键“Ctrl+V”，然后选择“保留源格式”或“保留文本格式”（这两个选项可以根据实际情况选择）。

Word会将Excel表格作为一个对象插入到文档中，你可以对其进行格式调整。

另外，你也可以使用Word的“插入表格”功能将Excel表格导入到Word文档中。具体步骤如下：

打开Word文档，将光标定位到你想插入表格的位置。

在菜单栏中选择“插入”>“表格”，然后选择“Excel表格”。

在d出的“插入对象”窗口中，选择“创建从文件创建的对象”，然后选择需要导入的Excel文件。

在d出的“插入对象”窗口中，选择“链接到文件”或“嵌入到文件”，然后点击“确定”。

Word会将Excel表格导入到文档中，你可以对其进行格式调整。如果选择了“链接到文件”，则Word会在文档中创建一个链接到Excel文件的对象，你可以在Word中编辑表格并保存更改，但需要保持Excel文件的位置和文件名不变。如果选择了“嵌入到文件”，则Word会将表格复制到文档中，你可以对其进行编辑，但不能保存更改到Excel文件中。

希望这些方法能够帮助你成功将Excel表格导出为Word文档的表格。