论文部分内容阅读
对于从事化学教学或需要撰写科技论文的朋友来说，化学分子式是必须涉及的内容之一，如果化学分子式的数量不是太多，那么可以将相关的数字手工设置为下标，或者使用格式刷。不过，如果涉及的化学分子式数量比较多，而且其中又有其他的数学式，那么手工操作将相当繁琐，而且也容易遗漏，下面介绍三种解决这一难题的方法。
利用VBA宏代码
可以借助VBA代码批量设置分子式下标，打开Microsoft Visual Basic编辑器窗口，插入一个空白模块，粘贴如下代码：
Sub test()
With ActiveDocument.Characters
For i = 2 To .Count
If .Item(i).Text Like "#" And (.Item(i - 1).Text Like "[A-Za-z]" Or .Item(i - 1).Font.Subscript = True) Then
.Item(i).Font.Subscript = True
End If
Next i
End With
End Sub
返回Word主界面，按下“Alt+F8”组合键，打开“宏”对话框，运行test宏，很快就可以看到图中所示的效果（如图1），而其中的非化学分子式的数字并没有被更改为下标，很方便吧？
使用两次替换法
上述方法还是麻烦了些，毕竟并非每时每刻都能记住上述代码，其实还可以使用两次替换的方法解决这一问题。
打开“替换”对话框，将查找内容设置为“^$^#”，光标跳转到“替换为”文本框，设置为下标格式，这一步骤是将化学分子式中的字母和数字统一替换为下标格式（如图2）；不关闭“替换”对话框，将查找内容设置为“^$”，取消下标的设置，这一步骤是将已经设置为下标的字母恢复为正常状态，此时可以看到化学分子式中的所有数字已经被统一设置为下标格式。
使用两次查找法
也可以使用两次查找的方法：打开“查找”对话框，将查找内容设置为“^$^#”，将“在以下项中查找”设置为“主文档”，此时会自动选中化学分子式中后面带数字的字母；不关闭“查找”对话框，将查找内容更改为“^#”，此时需要将“在以下项中查找”设置为“当前所选内容”，所选中的就只是化学分子式中的数字了（如图3）。接下来的操作就简单多了：保持当前的选中状态，单击工具栏“字体”功能组的下标按钮即可将这些数字批量设置为下标。
利用VBA宏代码
可以借助VBA代码批量设置分子式下标，打开Microsoft Visual Basic编辑器窗口，插入一个空白模块，粘贴如下代码：
Sub test()
With ActiveDocument.Characters
For i = 2 To .Count
If .Item(i).Text Like "#" And (.Item(i - 1).Text Like "[A-Za-z]" Or .Item(i - 1).Font.Subscript = True) Then
.Item(i).Font.Subscript = True
End If
Next i
End With
End Sub
返回Word主界面，按下“Alt+F8”组合键，打开“宏”对话框，运行test宏，很快就可以看到图中所示的效果（如图1），而其中的非化学分子式的数字并没有被更改为下标，很方便吧？
使用两次替换法
上述方法还是麻烦了些，毕竟并非每时每刻都能记住上述代码，其实还可以使用两次替换的方法解决这一问题。
打开“替换”对话框，将查找内容设置为“^$^#”，光标跳转到“替换为”文本框，设置为下标格式，这一步骤是将化学分子式中的字母和数字统一替换为下标格式（如图2）；不关闭“替换”对话框，将查找内容设置为“^$”，取消下标的设置，这一步骤是将已经设置为下标的字母恢复为正常状态，此时可以看到化学分子式中的所有数字已经被统一设置为下标格式。
使用两次查找法
也可以使用两次查找的方法：打开“查找”对话框，将查找内容设置为“^$^#”，将“在以下项中查找”设置为“主文档”，此时会自动选中化学分子式中后面带数字的字母；不关闭“查找”对话框，将查找内容更改为“^#”，此时需要将“在以下项中查找”设置为“当前所选内容”，所选中的就只是化学分子式中的数字了（如图3）。接下来的操作就简单多了：保持当前的选中状态，单击工具栏“字体”功能组的下标按钮即可将这些数字批量设置为下标。