请教Delphi中操作的WORD的问题

Question

我在使用Delphi操作WORD时，设置为不显示，但是在关闭时Documents.Close是会出现显示出WORD界面，一闪而过，不知哪位同仁知道如何解决？多谢指教！
代码如下：WordApp := CreateOleObject('Word.Application');
WordApp.Visible := False;
WordApp.Documents.Open('d:\test.doc');
...
WordApp..Documents.Close(False);//这行会出现显示出WORD界面，一闪而过
WordApp.Quit;
WordApp := Unassigned; 

Answer 1

procedure TForm13.btn2Click(Sender: TObject);
var
  WordApp, WordDoc: OleVariant;
begin
  try
    WordApp := CreateOleObject('Word.Application');
  except on E: Exception do
    raise Exception.Create('Error Message');
  end;  WordApp.Visible := False;
  WordDoc := WordApp.Documents.Open('c:\cc.doc');
  try
    WordApp.Selection.TypeText('学  生  评  教  结  果');
    WordApp.Selection.TypeParagraph;//回车    WordDoc.saveas('c:\cc.doc');
  finally
    WordDoc.Saved := True;
    WordDoc.Close;
    WordApp.Quit;
  end;
  ShowMessage('ok');
end;

Answer 2

procedure TForm13.btn2Click(Sender: TObject);
var
  WordApp, WordDoc: OleVariant;
begin
  try
    WordApp := CreateOleObject('Word.Application');
  except on E: Exception do
    raise Exception.Create('Error Message');
  end;  WordApp.Visible := False;
  WordDoc := WordApp.Documents.Open('c:\cc.doc');
  try
    WordApp.Selection.TypeText('学  生  评  教  结  果');
    WordApp.Selection.TypeParagraph;//回车    //WordDoc.saveas('c:\cc.doc');  //隐藏这句即可
  finally
    WordDoc.Saved := True;
    WordDoc.Close;
    WordApp.Quit;
  end;
  ShowMessage('ok');
end;