//试试
var
  vWordDocument: OleVariant;
begin
  vWordDocument := WordApplication1.ActiveDocument;
  vWordDocument.SaveAs('c:\temp.doc');
end;

解决方案 »

  1.   

    加上SAVEDIALOG后 点击存储时则会出现两个存储对话框
      

  2.   

    我实现了这个方法
    你先用opendialog打开一个word文件
    然后获取打开的文件名与路径,知道怎么用吗?
    然后你在打开的word文件中修改文字
    在用savedialog保存文件
    把刚刚你获取的文件路径赋给savedialog1.filename
    在在if savedialog1.Execute then
       WordDocument1.SaveAs(savedialog.filename);
    一切ok,
    你试试看怎么样?如果还不行,我把我的源程序给你.
      

  3.   

    我可能没说明白,就是我用OLE生成了了个word文档的工程报告,因为每个工程是有工号的,所以一般存储时都以工号存储,我说的是在点击WORD菜单中的存盘时,让它舞默认文件名为我给定的 而不是DOC1 DOC2....