如果用WordApplication1打开一个带密码的Word文件?

Question

如果用WordApplication1打开一个带密码的Word文件?
能给出示例源代码吗?
问题解决即给分.

Answer 1

wordapplication.documents.open： 
var 
itemindex :olevariant; 
filename, confirmconversions, readonly, addtorecentfiles, 
passworddocument, passwordtemplate, revert, 
writepassworddocument, writepasswordtemplate, format: olevariant; 
begin 
if not dlgopen.execute then 
exit; {open document} 
filename := dlgopen.filename; 
confirmconversions := false; 
readonly := false; 
addtorecentfiles := false; 
passworddocument := ''; 
passwordtemplate := ''; 
revert := true; 
writepassworddocument := ''; 
writepasswordtemplate := ''; 
format := wdopenformatdocument; wordapplication.documents.open( filename, confirmconversions, 
readonly, addtorecentfiles, passworddocument, passwordtemplate, 
revert, writepassworddocument, writepasswordtemplate, format ); {assign worddocument component} 
itemindex := 1; 
worddocument.connectto(wordapplication.documents.item(itemindex)); {turn spell checking of because it takes a long time if enabled and slows down winword} 
wordapplication.options.checkspellingasyoutype := false; 
wordapplication.options.checkgrammarasyoutype := false; 
end; 

Answer 2

writepassworddocument := ''; 
writepasswordtemplate := ''; 
这里应该是保存密码的，，试下

Answer 3

How do I open a password protected workbook?ExcelApplication1.ExcelApplication.Workbooks.Open(
  'C:\MyWorkbook.xls', // Filename
  3, // UpdateLinks
  False, // ReadOnly
  EmptyParam, // Format
  'passwd', // Password
  'passwdwrite', // WriteResPassword
  True, // IgnoreReadOnlyRecommended
  EmptyParam, // Origin
  EmptyParam, // Delimiter
  EmptyParam, // Editable
  EmptyParam, // Notify
  EmptyParam, // Converter
  True, // AddToMru
  0); // lcid 

Answer 4

打开文档时以只读方式打开FileName:='dfasdfsdaf.doc';
ConfirmConversions:=False;
ReadOnly:=True;
AddToRecentFiles:=False;
PasswordDocument:='';
PasswordTemplate:='';
Revert:=False;
WritePasswordDocument:='';
WritePasswordTemplate:=''; 
Format:=wdOpenFormatAuto;Documents.Open(FileName,ConfirmConversions,ReadOnly,AddToRecentFiles, PasswordDocument,PasswordTemplate,Revert,WritePasswordDocument,       WritePasswordTemplate,Format)  

Answer 5

TO nyf1220(我是党员--不过听说最近风声紧，打算换名字) 
wordapplication.documents.open( filename, confirmconversions, 
readonly, addtorecentfiles, passworddocument, passwordtemplate, 
revert, writepassworddocument, writepasswordtemplate, format ); 这一行代码不通过呵.提示Not enough actual parameters

Answer 6

procedure TForm1.Button1Click(Sender: TObject);
var
  FileName, ConfirmConversions, ReadOnly, AddToRecentFiles,
  PasswordDocument, PasswordTemplate, Revert, WritePasswordDocument,
  WritePasswordTemplate, Format: OleVariant;
  i:integer;
  mytable:table;
  myrange:range;
  rend:OleVariant;
begin
  filename:='f:\dd.doc';
  ConfirmConversions := False;
  ReadOnly := False;
  AddToRecentFiles := False;
  PasswordDocument := 'aa'; //打开此文档的密码
  PasswordTemplate := '';
  Revert := True;
  WritePasswordDocument := '';
  WritePasswordTemplate := '';
  Format := wdOpenFormatDocument;
  wordapplication1.Visible:=true;
  try
    WordApplication1.Documents.Open(FileName, ConfirmConversions, ReadOnly,
    AddToRecentFiles, PasswordDocument, PasswordTemplate, Revert,
    WritePasswordDocument, WritePasswordTemplate, Format,emptyparam,emptyparam);
  except begin
    Application.MessageBox('请检查文档是否能用WORD打开!','aa',MB_iconasterisk);
    abort;
  end;
  end;
  wordapplication1.Quit;
  wordapplication1.Disconnect;
end;