很简单的问题，关于WORD的，在线等。。。

Question

如果在单击一个BUTTON后以只读方式打开相应的WORD文档
调用WORD打开就行了

Answer 1

WordApplication1: TWordApplication;
WordDocument1: TWordDocument;
filename,index:OleVariant;filename:='c:\t.doc';
index:=1;WordApplication1.Connect;
    WordApplication1.Visible := true;
    WordApplication1.Caption := 'my Word';
    WordApplication1.Documents.Open(,EmptyParam,EmptyParam,
                        EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,
                        EmptyParam,EmptyParam,EmptyParam,EmptyParam);
    index:=1;
    WordDocument1.ConnectTo(WordApplication1.Documents.Item(index));

Answer 2

Word.Documents.Open 的 VB 的定義 Function Open(FileName, [ConfirmConversions], [ReadOnly], [AddToRecentFiles], [PasswordDocument], [PasswordTemplate], [Revert], [WritePasswordDocument], [WritePasswordTemplate], [Format], [Encoding], [Visible]) As Document

Answer 3

WordApplication1.Documents.Open(,EmptyParam,EmptyParam,
                        EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,
                        EmptyParam,EmptyParam,EmptyParam,EmptyParam);这句运行不了啊

Answer 4

filename:='C:\Documents and Settings\Administrator\桌面\帮助文档.doc';
  index:=1;  WordApplication1.Connect;
    WordApplication1.Visible := true;
    WordApplication1.Caption := 'my Word';  运行的时候这句出错
    WordApplication1.Documents.Open(filename,EmptyParam,EmptyParam,
                        EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,
                        EmptyParam,EmptyParam,EmptyParam,EmptyParam);
    index:=1;
    WordDocument1.ConnectTo(WordApplication1.Documents.Item(index));