返回列表 发帖
抽题源代码清单部分:
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;

返回列表

Powered by Discuz! 7.2   论坛QQ群:逐梦论坛群

© 2001-2021 Comsenz Inc. 鲁公网安备 37120302000001号