我copy了一段程序如下:
procedure TForm1.Button1Click(Sender: TObject);
var
wordapp:Twordapplication;
worddoc,Dotfile,Docfile:oleVariant;
Doc:olevariant;
begin
wordapp:=Twordapplication.Create(nil);
wordapp.Visible :=false;
dotfile:=EmptyParam;
docfile:=false;
worddoc:=wordapp.Documents.Add(Dotfile,Docfile);//这里无法编译error:Not enouge actual paramiters
end;
希望各位大侠帮帮忙
procedure TForm1.Button1Click(Sender: TObject);
var
wordapp:Twordapplication;
worddoc,Dotfile,Docfile:oleVariant;
Doc:olevariant;
begin
wordapp:=Twordapplication.Create(nil);
wordapp.Visible :=false;
dotfile:=EmptyParam;
docfile:=false;
worddoc:=wordapp.Documents.Add(Dotfile,Docfile);//这里无法编译error:Not enouge actual paramiters
end;
希望各位大侠帮帮忙
Documents.Add(EmptyParam,EmptyParam,EmptyParam,EmptyParam);
记得2000和xp 是四个参数