请教Delphi中操作的WORD的问题

e我行 2013-02-21 09:23:29
我在使用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;
...全文
76 3 点赞 打赏 收藏 举报
写回复
3 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
simonhehe 2013-03-01
引用 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;
  • 打赏
  • 举报
回复
e我行 2013-02-23
引用 1 楼 simonhehe 的回复:
Delphi/Pascal code?123456789101112131415161718192021222324procedure TForm13.btn2Click(Sender: TObject);var WordApp, WordDoc: OleVariant;begin try WordApp := CreateOleObject('Word.App……
我只是读操作,只读,不写,也不保存
  • 打赏
  • 举报
回复
simonhehe 2013-02-22
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;
  • 打赏
  • 举报
回复
相关推荐
发帖
Delphi
加入

4969

社区成员

Delphi 开发及应用
申请成为版主
帖子事件
创建了帖子
2013-02-21 09:23
社区公告
暂无公告