procedure TForm1.Button7Click(Sender: TObject);var TempDoc,NewTempDoc,TempWord,TempEmpty:OleVariant;begin
TempEmpty:=EmptyParam;
TempDoc:=EmptyParam;
NewTempDoc:=True;
try
Wordapplication1.Connect;
except
MessageDlg('无法打开Word,请确认已安装Word。',   mtError,   [mbOk],   0);
Abort;
end;
//打开指定WORD文档
TempWord:='d:\samp.doc';
WordApplication1.Visible:=True;
WordApplication1.Documents.Open(TempWord,TempEmpty,TempEmpty,TempEmpty,TempEmpty,TempEmpty,TempEmpty,TempEmpty,TempEmpty,TempEmpty);
end;但是始终出现这样的提示Not enough actual parameters
请帮忙!!!!!!