我的语句如下
编译时在WA.Documents.Open处
报[Error] NSFMAIN.PAS(685): Not enough actual parameters可是我把整个工程放到我同学的机器上编译
正常通过
执行正常
奇怪!为什么?
怎么解决?我和我同学装的都是Delphi7
try
WA.Connect;
except
StatusBarText('浏览申请书', '启动Word失败,请先安装Microsoft Word');
Abort;
end; {open document}
filename := TempFileName;
confirmconversions := false;
readonly := True;
addtorecentfiles := false;
passworddocument := '';
passwordtemplate := '';
revert := true;
writepassworddocument := '';
writepasswordtemplate := '';
format := wdOpenFormatAuto;
encoding := '';
visible := True;
//WA.Documents.Open(filename, confirmconversions, readonly, addtorecentfiles,
// passworddocument, passwordtemplate, revert, writepassworddocument,
// writepasswordtemplate, format, encoding, visible); //assign worddocument component
Itemindex := 1;
WD.ConnectTo(WA.Documents.Item(ItemIndex)); //turn spell checking of because it takes a long time if enabled and slows down winword
WA.Options.CheckSpellingAsYouType := False;
WA.Options.CheckGrammarAsYouType := False; //display Word Application
WA.Visible := True;
编译时在WA.Documents.Open处
报[Error] NSFMAIN.PAS(685): Not enough actual parameters可是我把整个工程放到我同学的机器上编译
正常通过
执行正常
奇怪!为什么?
怎么解决?我和我同学装的都是Delphi7
try
WA.Connect;
except
StatusBarText('浏览申请书', '启动Word失败,请先安装Microsoft Word');
Abort;
end; {open document}
filename := TempFileName;
confirmconversions := false;
readonly := True;
addtorecentfiles := false;
passworddocument := '';
passwordtemplate := '';
revert := true;
writepassworddocument := '';
writepasswordtemplate := '';
format := wdOpenFormatAuto;
encoding := '';
visible := True;
//WA.Documents.Open(filename, confirmconversions, readonly, addtorecentfiles,
// passworddocument, passwordtemplate, revert, writepassworddocument,
// writepasswordtemplate, format, encoding, visible); //assign worddocument component
Itemindex := 1;
WD.ConnectTo(WA.Documents.Item(ItemIndex)); //turn spell checking of because it takes a long time if enabled and slows down winword
WA.Options.CheckSpellingAsYouType := False;
WA.Options.CheckGrammarAsYouType := False; //display Word Application
WA.Visible := True;
试着窗入一个空的参数看看还 你们的word是一个版本吗
少了哪个?
在哪个位置?我们用的都是office xp
word2000里是12个参数你和同学的区别可能在于
你同学安装Delphi时Office控件选的是for 2000
你装的是for XP