DELPHI中调用WORD怎么进行存盘控制？

Question

最后看看WORD的帮助吧
记得是有一个documents.saveas方法或是在documents.quit的时候有一个设置。
还有一点wordapplication,我恨！！！

Answer 1

关闭Word用如下代码。如果想保存Doc文件，请修改SaveChanges变量的内容： 
var 
SaveChanges, OriginalFormat, RouteDocument: OleVariant; 
begin 
SaveChanges := WdDoNotSaveChanges; 
OriginalFormat := UnAssigned; 
RouteDocument := UnAssigned; 
try 
WordApplication.Quit(SaveChanges, OriginalFormat, RouteDocument); 
WordApplication.Disconnect; 
except 
on E: Exception do 
begin 
Showmessage(E.Message); 
WordApplication.Disconnect; 
end; 
end; 
end; 

Answer 2

有两种方法:
1、//保存文档
  with SaveDialog1 do
  begin
    SaveDialog1.FileName := ObjectFileName;
    if (Length(FileName) = 0) or (Sender = SaveAs1) then
    begin
      if Execute then
      begin
        OleContainer1.SaveToFile(FileName);
        ObjectFileName := FileName;
      end
    end
    else
      OleContainer1.SaveToFile(FileName);
  end;
2、 //保存退出WORD        
try          
wordapplication1.ChangeFileOpenDirectory('C:\My Documents');          Temp1 := 'b.rtf';          
Temp2 := wdFormatDocument;          
Temp3 := '';          
Temp4 := True;          
TempW := False;          
WordApplication1.ActiveDocument.SaveAs(Temp1,Temp2,TempW,                      Temp3,Temp4,Temp3,TempW,TempW,TempW,TempW,TempW);          wordApplication1.Quit;          
WordApplication1.Disconnect;
 showmessage('保存成功');       
except          
on E: Exception do          
begin          
Showmessage(E.Message);          
WordApplication1.Disconnect;          
end;        
end;    
end;

Answer 3

谢谢了,给你分。HEHE，THANKS A LOTS！