我在使用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;
uj5u.com熱心網友回復：
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;
uj5u.com熱心網友回復：
我只是讀操作，只讀，不寫，也不保存
uj5u.com熱心網友回復：
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;
轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/143653.html
標籤：VCL組件開發及應用