|
抽题源代码清单部分:
str:=edit5.text;
i:=strtoint(str);
str:=edit2.text;
if str<>'' then
begin
sfilename := extractfilepath(application.exename) + '标题3';
sfilename := sfilename + '.' +'doc';
opendialog1.filename:=sfilename;
ofilename:=opendialog1.filename;
wordapplication1.documents.open(ofilename,oconfirmconversions,
oreadonly,oaddtorecentfiles,opassworddocument,opasswordtemplate,
orevert,owritepassworddocument,owritepasswordtemplate,oformat,oencoding,ovisible);
itemindex := 1;
worddocument1.connectto(wordapplication1.documents.item(itemindex));
wordapplication1.options.checkspellingasyoutype := false;
wordapplication1.options.checkgrammarasyoutype := false;
worddocument1.range.insertafter(edit2.text+'分');
worddocument1.range.copy;
worddocument2.sentences.last.paste;
worddocument2.range.insertafter(' '+#13);
worddocument1.close(savechanges,originalformat,routedocument);
j:=strtoint(str);
score1:=(j*i) div 100;
score:=0;
j:=0;
k:=1;
dmolecontainer.scds1.active:=false; |
|