关于显示Word文档，请指教。 ( 积分: 50 )

只想将一个Word文档完整地显示出来，不需要对它进行编辑等操作，使用OleContainer组件，当Word文档内容不多的时候可以完整地显示，当文档稍大了（还是一页），显示的内容会变得很小，如果有两页以上，除了第一页，后面的页都不显示了。用什么方法能完整地、按原来的格式显示一个Word文档，请高手指教。
已经就有关问题搜索过了，没有找到有关的方法。

只想将一个Word文档完整地显示出来，不需要对它进行编辑等操作，使用OleContainer组件，当Word文档内容不多的时候可以完整地显示，当文档稍大了（还是一页），显示的内容会变得很小，如果有两页以上，除了第一页，后面的页都不显示了。用什么方法能完整地、按原来的格式显示一个Word文档，请高手指教。
已经就有关问题搜索过了，没有找到有关的方法。

这个问题我也找了很久，问了很久，等了很久，可是久久不得其法。

正在想...想到的通知声我

如果是显示在网页上,可以用微软发布的一个OCX 控件

to nxpostwjq
谢谢。
不是在网页上显示，直接用OleContainer组件，或其它组件。如果用richedit组件，word文档中的表格无法显示，设置的格式也改变了。

我也想请问，怎样在网页中显示Word文本
微软发布的一个OCX 控件？
请问是哪个控件呀

我也想请问，怎样在网页中显示Word文本
微软发布的一个OCX 控件？
请问是哪个控件呀

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Word2000, OleServer;

type
TForm1 = class(TForm)
WordApplication1: TWordApplication;
WordDocument1: TWordDocument;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
procedure OpenWordFile(FileName:String);
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
openwordfile(ExtractFilePath(Application.ExeName)+'doc/1.doc');
end;

procedure TForm1.OpenWordFile(FileName: String);
var
a:OleVariant;
begin
a:=filename;
WordApplication1.Connect;
WordApplication1.Visible:=true;
WordDocument1.Connectto(WordApplication1.Documents.Open(a,EmptyParam, EmptyParam, EmptyParam,
EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam,EmptyParam));
end;


end.
d6+office2003编译通过!!
记得给分哦.呵呵..

小红河:
谢谢指教，但我要实现的是在一个窗体中显示word文档内容，并不是在word环境中打开word文档。

不错！
我喜欢！实在太感谢了

接受答案了.