Server组件的问题

Question

a := 'EmptyParam'; {EmptyParam参数表示不使用模版}
 =============别的不说，这句话肯定错！
a:=EmptyParam;

Answer 1

我已经改过了,现在是
procedure TForm1.Button3Click(Sender: TObject);
var
 TEmplaTE,NewTEmplaTE,ItemIndex:OleVariant;
begin
  TEmplaTE := EmptyParam; {EmptyParam参数表示不使用模版}
  ItemIndex:=0;
  WordApplication1.Documents.Add(TEmplaTE,NewTEmplaTE);
  WordDocument1.ConnectTo(WordApplication1.Documents.Item(ItemIndex));
end;
可还是原来的出错提示啊??

Answer 2

试试这个
procedure TForm1.Button1Click(Sender: TObject);
var
a: OleVariant;
begin
a := 0;
  WordApplication1.Connect;
  WordApplication1.Visible := True;
  WordApplication1.Documents.Add(EmptyParam, EmptyParam);
  WordDocument1.ConnectTo(WordApplication1.ActiveDocument);
end;