WORD表格问题

Question

在richedit中，如何拷贝word中的表格？吧表格显示在程序的richedit中，当然别的控件也可以！谁有这样的控件或者是源码，我令开贴送分－－只要问题解决！
我有一个浏览的功能，内容都是word表格的形式，如果直接拷贝，只有文字能够粘贴到richedit中，而其中的表格格式却不能，这个表格非常多，如何解决？
急啊！！！！
在线等.......

Answer 1

楼主，可以的阿，richedit 可以显示表格啊。

Answer 2

不行的，如果行的话，我就不用这么着急了！
我用的是Delphi6的richedit控件，不幸的

Answer 3

然后怎么显示在richedit中啊？

Answer 4

先把表格拷贝到粘贴版上，然后richedit1.PasteFromClipboard;不行吗？

Answer 5

呵呵，richview好像可以。
还有Rxlib里面的RxRichEdit可以。

Answer 6

我试验过了，不行啊！D6带的richedit就不行啊

Answer 7

呵呵，richview好像可以。
还有Rxlib里面的RxRichEdit可以。这两个是第三方组件。在网上查查。//OleContainer显示Word文件unit uReadonlyWord;interfaceuses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls, OleCtnrs, ComCtrls, ToolWin, OleServer, Word97;type
  TfShowRWord = class(TForm)
    CoolBar1: TCoolBar;
    ToolBar1: TToolBar;
    btnClose: TButton;
    Panel2: TPanel;
    OlecWord: TOleContainer;
    procedure btnCloseClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormActivate(Sender: TObject);
    procedure btnOpenDocClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    DocFile:string;
  end;var
  fShowRWord: TfShowRWord;implementation{$R *.DFM}procedure TfShowRWord.btnCloseClick(Sender: TObject);
begin
  olecWord.DestroyObject;
end;procedure TfShowRWord.FormActivate(Sender: TObject);
begin
  btnClose.SetFocus; /TOleContainer失去焦点，变为只读
end;procedure TfShowRWord.FormShow(Sender: TObject);
begin
  olecWord.CreateObjectFromFile (DocFile, False);
  olecWord.DoVerb (ovShow);
end;end.

Answer 8

楼上的，我不要直接显示word内容，而是把word内容(包括表格内容)复制，粘贴，显示在richedit控件之中，如何在98下显示？

Answer 9

richview可以，但是不能很好的支持中文。
这个网上可以下载的到。
Rxlib控件集里的RichEdit也可以显示网格，但是如果Word一个单元格是很多行文字的话，粘贴进来会有问题。
但是Rxlib控件集里的RichEdit可以插入对象。嘿嘿，那样插入一个只包含表格的Word文档就ok！