创建Word文档？？******

007

以下代码创建Word文档，不知道有什么问题？
如果是打开文档则OK， FDocs.InvokeMethod('Open', [sFileName]);

var
  lPath,sFileName,sFileExt: String;
  svDialog: TSaveDialog;
  o:   Object;
  FApp,FDocs: System.DispatchHelper;
begin
TSaveDialog.Create(self);
  svDialog:= TSaveDialog.Create(self);
  if svDialog.Execute then
  begin
    sFileName := svDialog.FileName;
    sFileExt := SysUtils.UpperCase(SysUtils.ExtractFileExt(sFileName));
    if sFileExt='' then
    begin
      sFileExt := '.doc';
      sFileName := sFileName+sFileExt;
    end;
    if SysUtils.FileExists(sFileName) then
    if Jsdialogs.ConfirmBox('该文件已经存在，是否要覆盖该文件？','提示',2)=False then Exit;

    o := ComObj.CreateOleObject('Word.Application');
    FApp := System.DispatchHelper.Create(o);
    FApp.PropertyPut('Visible', [True]);//不隐藏
    FDocs := System.DispatchHelper.Create(FApp.PropertyGet('Documents',  []));
    //FDocs.InvokeMethod('Add', [sFileName,False]);
    FDocs.InvokeMethod('Add', [sFileName,False]);
end;
end;

lixy

//FDocs.InvokeMethod('Add', [sFileName,False]); 这句改成下面这句
    FDocs.InvokeMethod('Add', []);
你的文档都没保存过，当然不能打开。一种方式是我上面写的，一种方式是先保存一遍空文档，再打开。