请教Delphi中操作的WORD的问题

[e我行]

我在使用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;

[simonhehe]

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;

• 打赏
• 举报

回复 赞

[e我行]

引用 1 楼 simonhehe 的回复:

Delphi/Pascal code?123456789101112131415161718192021222324procedure TForm13.btn2Click(Sender: TObject);var WordApp, WordDoc: OleVariant;begin try WordApp := CreateOleObject('Word.App……

我只是读操作，只读，不写，也不保存

• 打赏
• 举报

回复 赞

[simonhehe]

引用 2 楼 ganlnyn2008 的回复:

引用 1 楼 simonhehe 的回复:Delphi/Pascal code?123456789101112131415161718192021222324procedure TForm13.btn2Click(Sender: TObject);var WordApp, WordDoc: OleVariant;begin try WordApp := Crea……

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;

• 打赏
• 举报

回复 赞