【搞定】涉及到Word的问题.**

comqing

FileName := 'Documents and SettingsAdministratorApplication DataMicrosoftTemplates1.dot';
  if not FileExists(FileName) then
    raise Exception.Create('找不到模板！');
  O := ComObj.CreateOleObject('Word.Application');
  try
    app := System.DispatchHelper.Create(O);
    docs := System.DispatchHelper.Create(app.PropertyGet('Documents',[]));
    docs.InvokeMethod('Add', [FileName,False]);
    doc := System.DispatchHelper.Create(app.PropertyGet('ActiveDocument',[]));
    app.PropertyPut('Visible', [True]);
    //doc.InvokeMethod('Save',[]);
    doc.InvokeMethod('SaveAs',['F:Temp.doc',0,False,'',True,'',False,False,False,False,False]);
偶想用这串生成个Word文档,然后将它保存起来,但运行到最后一句时,就报错!
请教怎么解决?先谢过.

alang

http://bbs.justep.com/forum.php? ... 6%CF%D6%D2%E2%CD%E2

alang

http://www.baidu.com/s?tn=baidu& ... BF%F6+word&ct=0

comqing

兄弟,这些在delphi上能够实现,相当happy但是在平台上就让人伤心了,给个说法!
procedure TForm1.BitBtn1Click(Sender: TObject);
var
  FileName: String;
  O: Variant;
begin
  FileName := 'D:\Documents and Settings\Administrator\Application Data\Microsoft\Templates\江苏.dot';
  if not FileExists(FileName) then
    raise Exception.Create('找不到模板！');
  O := ComObj.CreateOleObject('Word.Application');
  try
    O.Documents.Add(FileName, False);
    O.Visible := true;
    O.ActiveDocument.SaveAs('F:\Temp.doc',0,False,'',True,'',False,False,False,False,False);
  except
  end;
end;

alang

EOleSysError这样的错误是OLE对象报过来的
你用Delphi可以，只是证明运行的这台机器是好的，换一台机器就不一定了，这个跟每一个客户端自己有关系

comqing

那请问有什么解决办法?那还有其他办法吗?
需要实现将生成好的WORD保存到数据库中,然后还能够读出来.

alang

你看看参数的个数，对不上

comqing

这个问题我试过了,把所有参数都写上,也无济于事啊!

alang

你把全写上的代码贴上来看看

alang

由于楼主长时间没有反馈，此贴结了，有问题请开新贴。