怎样打开doc结尾的word文档(50分)

请问各路大侠：
想要打开word文档，应该用什么控件呀

用ole啊，在google上打word delphi，应该能找到好多

如下：
uses ShellAPI;
.......
try
ShellExecute(handle, 'open', pchar(extractfilepath(paramstr(0)) + '/www/xxx.doc'), nil, nil, SW_SHOWNORMAL);
except
messagedlg('xxx打开失败，请确认该文件格式是否关联正确！', mtError, [mbcancel], 0);
end;

to tmxyb:
我想用button控制文档的打开，这个api函数要怎么用呀，能具体一些么，大力感谢

如果用程序打开的话嵌入OLE即可，如果要是调用Word来打开，同意tmxyb的观点！

道长不妨细细道来，小生想借机会多学一些呀！！

建议用Servers控件，应用会更方便。

我手头的书上都没有介绍servers控件的，不知要怎么用

关于此类帖子很多，以word为关键词搜一下，一般问题都可解决。我就回答了不少，可查看。

给你一个打开函数，是利用server控件打开Word文档。
procedure openwordfile(Myword: TWordApplication; Myfile: string;IsVisible:Boolean); //打开Word文档函数。
//Myword:文档工程名称；Myfile:word文件名；IsVisible来控制是否显示。
var
FileName, ConfirmConversions, ReadOnly, AddToRecentFiles,
PasswordDocument, PasswordTemplate, Revert,WritePasswordDocument,
WritePasswordTemplate, Format,MatchCase, MatchWholeWord, find1, rep1,
MatchWildcards, MatchSoundsLike, MatchAllWordForms, Forward,
Wrap, Replace: OleVariant;
{以上的变量都是TDocument.open函数所必需的，都是系统默认的，详情请参看Word的Help}
{可能会碰到错误的提示，一种情况是Uses一下Office97就可以了。}
begin
Myword.Connect;
Myword.Visible :=false;
FileName := MyFile; //打开的文件名称。
confirmConversions := False;
ReadOnly := False;
AddToRecentFiles := False;
PasswordDocument := '';
PasswordTemplate := '';
Revert := True;
WritePasswordDocument := '';
WritePasswordTemplate := '';
Format := wdOpenFormatDocument;
myWord.Documents.Open(FileName, ConfirmConversions,
readOnly, AddToRecentFiles, PasswordDocument, PasswordTemplate,
Revert, WritePasswordDocument, WritePasswordTemplate, Format);
Myword.Visible :=True;
Myword.Disconnect;
end;
//打开Word文档函数（结束）

我的函数是可以用的啊。

结账吧。

关键还在于你是否对Word 文档的内容进行写操作，如果只是简单的打开，用我的代码最简单，但要在程序中对WORD写，还是用‘天与地’兄的方法。我这里还有一套很好的构件，方便写操作的，内面封装了OLESERVER.要的话，我邮你！
另：ShellExecute 函数在BUTTONONCLICK 事件中也可以执行的。

结帐