请教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;
...全文
127 3 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
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;

5,927

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧