ole对象创建word(大家帮忙看看啊)(100分)

var
word: Variant; //word文档
begin
try
Word := CreateOleObject('Word.Application');
Word.Visible := false;
except
MessageBox(handle,'对不起,您没有安装word软件','提示',MB_OK);
Exit;

end;
Word.Documents.Open(FileName:=ExtractFilePath(ParamStr(0))+'报表/mb_sj.doc',
ReadOnly:=false);

这样创建的word为什么是可见 怎么不可见啊

procedure TForm1.Button1Click(Sender: TObject);
var
v_Word: OleVariant;
begin
v_Word := CreateOleObject('Word.Application');
v_Word.Visible := False;
v_Word.Documents.Open(FileName:='C:/111.doc',ReadOnly:=false);

v_Word.Documents.Close;
v_Word.Quit;
v_Word := Unassigned;
end;

你加我的qq：7877528
详细和你说

多人接受答案了。