如何用wordapplication 控件方式 打开word 文档??
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
请帮忙!!!!!!