周
周海涛
Unregistered / Unconfirmed
GUEST, unregistred user!
救命!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
我的 信箱 zhouhaitao@txzxdz.com
我用下面的代码打开d:/110.doc的文件怎么不可以!
procedure TForm1.Button7Click(Sender: TObject);
var
FileName : OleVariant;
ConfirmConversions : OleVariant;
ReadOnly : OleVariant;
AddToRecentFiles : OleVariant;
PasswordDocument : OleVariant;
PasswordTemplate : OleVariant;
Revert : OleVariant;
WritePasswordDocument : OleVariant;
WritePasswordTemplate : OleVariant;
Format : OleVariant;
Encoding : OleVariant;
Visible : OleVariant;
OpenAndRepair,DocumentDirection,NoEncodeingDialog : OleVariant;
ItemIndex ,Template,NewTemplate,DocuType: OleVariant;
begin
try
wordapplication1.Connect;
except
end;
wordapplication1.Visible:=true;
wordapplication1.Caption:='haitao';
filename:='d:/110.doc';
ConfirmConversions:=true;
ReadOnly:=false;
AddToRecentFiles:=true;;
PasswordDocument:='';
PasswordTemplate:='';
Revert:=True;
WritePasswordDocument:='';
WritePasswordTemplate:='';
Format:=wdOpenFormatAllWord;
Encoding:=8437;
Visible:=true;
try
wordapplication1.Documents.Open(FileName, ConfirmConversions, ReadOnly, AddToRecentFiles,PasswordDocument, PasswordTemplate, Revert, WritePasswordDocument, WritePasswordTemplate, Format,Encoding, Visible);
//wordapplication1.Documents.Open(FileName,ConfirmConversions,ReadOnly,AddToRecentFiles,PasswordDocument,PasswordTemplate,Revert,WritePasswordDocument,WritePasswordTemplate,Format,Encoding,Visible);
except
showmessage('打开文档失败!');
exit;
end;
end;
我的 信箱 zhouhaitao@txzxdz.com
我用下面的代码打开d:/110.doc的文件怎么不可以!
procedure TForm1.Button7Click(Sender: TObject);
var
FileName : OleVariant;
ConfirmConversions : OleVariant;
ReadOnly : OleVariant;
AddToRecentFiles : OleVariant;
PasswordDocument : OleVariant;
PasswordTemplate : OleVariant;
Revert : OleVariant;
WritePasswordDocument : OleVariant;
WritePasswordTemplate : OleVariant;
Format : OleVariant;
Encoding : OleVariant;
Visible : OleVariant;
OpenAndRepair,DocumentDirection,NoEncodeingDialog : OleVariant;
ItemIndex ,Template,NewTemplate,DocuType: OleVariant;
begin
try
wordapplication1.Connect;
except
end;
wordapplication1.Visible:=true;
wordapplication1.Caption:='haitao';
filename:='d:/110.doc';
ConfirmConversions:=true;
ReadOnly:=false;
AddToRecentFiles:=true;;
PasswordDocument:='';
PasswordTemplate:='';
Revert:=True;
WritePasswordDocument:='';
WritePasswordTemplate:='';
Format:=wdOpenFormatAllWord;
Encoding:=8437;
Visible:=true;
try
wordapplication1.Documents.Open(FileName, ConfirmConversions, ReadOnly, AddToRecentFiles,PasswordDocument, PasswordTemplate, Revert, WritePasswordDocument, WritePasswordTemplate, Format,Encoding, Visible);
//wordapplication1.Documents.Open(FileName,ConfirmConversions,ReadOnly,AddToRecentFiles,PasswordDocument,PasswordTemplate,Revert,WritePasswordDocument,WritePasswordTemplate,Format,Encoding,Visible);
except
showmessage('打开文档失败!');
exit;
end;
end;