楼主 い卋玑┾宝珼 |
引用作品链接见作品信息 是小月在09年出的一道题目,闲来无事,就思考一下,如果仅用Word能否实现这一点。当然,仅用Word会很麻烦,这并不是最优解,但是,可以很好在认识到Word的强大,开拓思路。 要求:不用vba,仅仅使用word基础操作,批量在数学成绩分数后面插入学习等级,根据数学成绩来判断,<60为不及格,>=60同时<80为良好,>=80为优秀。 我把用Excel这件事情去掉了 源文章格式: 目录是希望是所有的00分之后,加个成绩等级评定,我们来操作一下。 第一步,将回车换成文章中没有出现的格式,以便还原格式,不勾选通配符匹配,将“^p”替换为“$” 第二步,整理成可以调整为表格的格式,勾选通配符匹配,将“([0-9]{1,})分”替换为“^t\1^t^p” 这样,可以让转化成的表格,是一列,然后后面有一列空的。 第三步,文本转表格 第四步,在第三列输入公式,判断等级 { if { =sum(left) } = 0 "" { if { =sum(left) } < 60 "分,学习等级不及格" { if { = sum(left) } < 80 "分,学习等级良好" "分,学习等级优秀" } } } 所有的括号都是ctrl+F9输入的。 如果第二列为空,则什么也不显示,如果不为空,则判断分数,显示相应的成绩等级。 注意点:所有域括号的两侧,都注意加半角空格。 第五步,选中输入的域代码,复制到整个第三列,并全选文本,按F9刷新,如果显示的还是域代码,证明当时正处于显示全部域代码的状态,按alt+F9切换即可。 第六步,全选,按ctrl+shift+f9,将域代码转化为静态文本。 第七步,将表格转化为文本。 第八步,不勾选使用通配符,将“^p”替换为空 第九步,不勾选使用通配符,将“$”替换为“^p”,还原段落标记 第十步,设置标题行居中,正文首行缩进,效果图如下(标红仅为强调加的内容) 文档附件: 实例二.rar 此系列为三帖,为进阶型: Word表格转置 仅用word的功能,实现表格的转置 批量添加等级 仅用Word的功能,实现分数等级评定的批量添加 批量替换日期 仅用word的功能,将文章中的日期实现批量的替换 |
2楼 不懂有仨 |
又是域,太强大了,学习了,谢谢西西老师! |
3楼 以以 |
谢谢 |
4楼 白米饭 |
西西威武 |