通用化学分子式下标的VBA代码

今天在旧杂志上看到一段代码，可以方便的在PPT、WORD、EXCEL平台上快速实现化学分子式下标的自动化实现，感觉对化学老师或其他人有所帮助，特拿出来写个简单教程和大家分享。
（1）打开PPT（或者WORD、EXCEL）软件，按ALT＋F11，打开VBA编辑器（VBE），插入一模块，然后把下面的代码复制到模块的代码区域。

Sub 通用分子式下标()
U = Mid(Application.Caption, 11, 1)
If U = "E" Then
Set QY = Selection
For Each G In QY
G.Select
Set D = Selection
Call LCY(D, K, U)
Next G
ElseIf U = "W" Then
Set D = Selection
Call LCY(D, K, U)
Selection.EndKey Unit:=wdLine
Selection.Font.Subscript = wdToggle
ElseIf U = "P" Then
Set D = ActiveWindow.Selection.ShapeRange.TextFrame.TextRange
Call LCY(D, K, U)
End If
End Sub
Sub LCY(D, K, U)
l = Len(D)
For I = 2 To l
Y = Asc(Mid(D, I - 1, 1))
X = Asc(Mid(D, I, 1))
Q = Y > 64 And Y < 123 Or Y = 41
R = X > 47 And X < 58 And K
If X > 47 And X < 58 And Q Or R Then
If U = " W " Then
D.Characters(I).Font.Subscript = 1
Else
D.Characters(Start:=I, Length:=1).Font.Subscript = 1
End If
K = 1
Else: K = 0
End If
Next I
End Sub

（2）点击“文件<导出文件”将上述宏代码以默认名称（模块1.bas）保存到电脑中，以供WORD、EXCEL导入之用。
（3）使用方法（以PPT2003为例），可在第（1）步之后接着做，也可在第（2）步导入“模块1.bas”之后做。具体操作为：点击“工具>自定义>命令>类别>宏”在右栏将“通用分子式下标”按钮拖放到工具栏的适当位置，即可。（在WORD2003、EXCEL2003中亦可仿照此方法提取“通用分子式下标”命令按钮。）
（3）举例：
我们在PPT2003中输入 (CH3CH2O)Mg+2H2O→ 2CH3CH2OH+Mg (OH)2  然后将其选中，点击“通用分子式下标”按钮即可快速实现化学分子式的格式化。