轻松实现化学式上下标的一键输入

1、轻松实现化学式上下标的一键输入徐林岗江苏江都市丁沟中学 225235摘要：笔者是一名中学化学教师，工作中常常要输入许多的化学式。化学式中的上下标在输入时要不停地切换，十分不便，所以笔者尝试用vba编写了一段宏，很好地解决了这个问题。关键词：化学式，上下标，宏随着电脑日益的普及，中学化学老师在出试卷,写教案,写论文等的过程中都可能在使用电脑输入处理了，在这个过程中,经常需要书写各种化学式，但因为要不停地切换输入状态为“上标”“下标”或“正常”，这使得很多老师常常感到非常麻烦和累人，工作效率低下。本文就是试图把烦琐的输入方法改进成简单易用的操作。下面就是笔者用vba编写的宏。使用时只要选择含有化学

2、式的内容，而后运行一下宏就可以了，正确率几乎是百分之百。sub 智能上下标() dim x, y, j, k as integer dim m, n as long dim char as string x = selection.start y = selection.end 记录当前选取的起始位置与终止位置 for j = x to y step 1 对选取内容进行枚举，对于属于化学式的内容进行改写. selection.start = j - 1 selection.end = j char = selection.text n = instr(abcdefghijklmnopqrstu

3、vwxyzabcdefghijklmnopqrstuvwxyz)）, char) if n 0 then selection.start = j selection.end = j + 1 char = selection.text m = instr(0123456789, char) if m 0 then k = 2 selection.font.subscript = wdtoggle selection.start = j selection.end = j + k char = selection.characters(k).text m = instr(0123456789-+,

4、 char) do while m 0 if char = + or char = - then selection.start = j + k selection.end = j + k + 1 char = selection.text m= instr(0123456789abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyz(（, char) 如果是“+”表示加号，也不别在前面加上一个空格，以避开它与离子符号间相互的干扰。 if m 0 then goto line1 else selection.start = j - 1 selec

5、tion.end = j + k char = selection.characters(1).text end if if char = o or char = h then 与line1共同作用以防止将nh4+、alo2-这一类的一价离子，错误地改写成nh4+、alo2-。 selection.start = j selection.end = j + 1 selection.font.subscript = wdtoggle selection.font.subscript = wdtoggle selection.start = j + 1 selection.end = j + k

6、selection.font.superscript = wdtoggle goto line1 end if selection.start = j selection.end = j + k selection.font.superscript = wdtoggle selection.font.superscript = wdtoggle goto line1 end if k = k + 1 selection.start = j selection.end = j + k char = selection.characters(k).text if char = - or char

7、= + then selection.start = j selection.end = j + k - 2 selection.font.subscript = wdtoggle selection.font.subscript = wdtoggle selection.start = j + k - 2 selection.end = j + k selection.font.superscript = wdtoggle goto line1 else m = instr(0123456789, char) end if loop selection.start = j selection

8、.end = j + k - 1 selection.font.subscript = wdtoggle selection.font.subscript = wdtoggle end ifline1: selection.start = j selection.end = j + 1 char = selection.text m = instr(-, char) if m 0 then selection.start = j + 1 selection.end = j + 2 char = selection.text m = instr(0123456789abcdefghijklmno

9、pqrstuvwxyzabcdefghijklmnopqrstuvwxyz(（, char) if m = 0 then selection.start = j selection.end = j + 1 selection.font.superscript = wdtoggle end if end if m = instr(+, char) if m 0 then selection.start = j + 1 selection.end = j + 2 char = selection.text m = instr(0123456789abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyz(（+,char) if m = 0 then selection.start = j selection.end = j + 1 selection.font.superscript = wdtoggle end if end if end if next j selection.start = y selection.end = yend sub结束语 就我国目前大多化学老师来说，用微机进行无纸化办公变得越来越必要和普遍，而在办公过程中用得最多的就是office办公系统，如何提高工作效率则是其中一个重要问题。而宏正是为此而生，恰当的运