delphi 循环读取word每页的内容显示在OleContainer1内

 

最近要做一个word浏览内容的工具，网上找了找例子基本都差不都，下回来试了试有点问题。

OleContainer1载入word后默认都是显示第一页的，在csdn上发帖求助，终于解决了显示问题。

感谢csdn的“erhan”帮助我完成了这个工具。

 

 我贴出来的这段代码，也是在网上找到的，网上的代码测试会发现有点问题，只有第一页和最后一页可以显示，其他页都和第一页一样的，跟踪之后发现除最后一页之外，其他页都是一样的(word全部文字信息)，这里是改过后的代码：

procedure TForm1.Button7Click(Sender: TObject);var  wordapp, WordDoc, PageRange: Variant;  i, nPageCounts, nStart, nEnd : Integer;  sContext: string;begin  //禁止双击打开word编辑  olecontainer1.AutoActivate := aaManual;  //禁止右键菜单  olecontainer1.AutoVerbMenu := False;  wordapp := CreateOleObject('Word.Application');  try  wordapp.Visible := False;  WordDoc := wordapp.Documents.Open(AppPath+'7S.doc');  //文档总页数  nPageCounts := wordapp.Selection.Information[wdNumberOfPagesInDocument];  //如果只有一页 那么全选就OK了  if nPageCounts = 1 then  begin  wordapp.Selection.WholeStory;  wordapp.selection.copy;  if olecontainer1.canpaste then  olecontainer1.paste;  OleContainer1.Update;  Exit;  end;  nStart := 0;  nEnd := 0;  //循环获取文档页中的内容  for i := 1 to nPageCounts do  begin  //定位到第i页  PageRange := wordapp.Selection.GoTo(wdGoToPage, wdGoToAbsolute, IntToStr(i));  //如果第i页是最后一页 那么直接将光标移动到最后 并输出内容  if i = nPageCounts then  begin  wordapp.Selection.EndKey(wdStory,wdExtend);  wordapp.selection.copy;  if OleContainer1.canpaste then  OleContainer1.paste;  OleContainer1.Update;  Exit;  end;  //取第i页的页首位置作为开始位置  //nStart := wordapp.Selection.Start;  nStart := nEnd;  //定位到i+1页  PageRange := wordapp.Selection.GoTo(wdGoToPage, wdGoToAbsolute, IntToStr(i+1));  //取第i+1页的页首位置作为结束位置  nEnd := wordapp.Selection.Start;  //showmessage(IntToStr(nStart)+';'+IntToStr(nEnd));  //根据开始位置和结束位置确定文档选中的内容（第i页的内容）  WordDoc.Range(nStart,nEnd).Select;  sContext := WordDoc.Range.Text;  //ShowMessage(sContext);  //wordapp.Selection.WholeStory;  wordapp.selection.copy;  if olecontainer1.canpaste then  olecontainer1.paste;  OleContainer1.Update;  Sleep(3000);  end;  finally  wordapp.Quit;  end;end;

再次感谢csdn的“erhan”。