急！delphi 操作有密码word问题，新建和导入自动加密！在线

Question

对word安全性进行操作，大虾们，给个例子！！！！！！！！！！！！

Answer 1

又看见月亮了……
说句题外话，word自带的加密已经不再管用了，现在有软件可以秒破这个密码，只要联网就行
好像没见过什么API可以直接操纵word的，我也想不出办法
就按照月亮叔叔（这两个字叫得真恶心……）的办法试试吧

Answer 2

procedure OpenWordFile(State,Path: String; WordApplication1: TwordApplication;worddocument:
Tworddocument);
var
   itemindex :olevariant;
   filename, confirmconversions, readonly, addtorecentfiles,
   passworddocument, passwordtemplate, revert,
   writepassworddocument, writepasswordtemplate, format, Encoding, Visible: olevariant;
   begin
    WordApplication1.Connect
      wordApplication1.Visible:=True;
      filename :=path ;                  
      confirmconversions := false;             
if state='false' then readonly:=false
      else
      readonly :=false;                  
      addtorecentfiles := false;        
      passworddocument := '1';            
      passwordtemplate := '1';            
      revert := true;                    
      writepassworddocument := '1';       
      writepasswordtemplate := '1';       
      format := wdopenformatdocument;    
      Encoding:='';                      
      Visible:= 1;                      
      wordapplication1.documents.open( filename, confirmconversions,readonly, addtorecentfiles,
passworddocument, passwordtemplate,revert, writepassworddocument,writepasswordtemplate,
format ,Encoding, Visible);
      itemindex := 1;
          if state='True' then
            begin
              WordApplication1.CommandBars.ActiveMenuBar.Set_Enabled(true); 
            end
          else
            begin
               WordApplication1.CommandBars.ActiveMenuBar.Set_Enabled(true);
            end;
            WordApplication1.Disconnect;
end;