procedure TForm1.Open1Click(Sender: TObject);
var
filename, confirmconversions, readonly, addtorecentfiles,
passworddocument, passwordtemplate, revert,
writepassworddocument, writepasswordtemplate, format, Encoding, Visible: olevariant;
begin
wordapplication1.Connect;
wordapplication1.Visible := true;
if opendialog1.Execute then
begin
filename := opendialog1.FileName;
confirmconversions := false;
readonly := false;
addtorecentfiles := false;
passworddocument := '';
passwordtemplate := '';
revert := true;
writepassworddocument :='';//文档密码
writepasswordtemplate := '';//模板密码
format := wdOpenFormatAuto;
encoding := '';
visible := true;
wordapplication1.Documents.Open(filename, confirmconversions, readonly,
addtorecentfiles, passworddocument, passwordtemplate, revert,
writepassworddocument, writepasswordtemplate, format, encoding, visible);
end
else
exit
end;
