Word中很多化学分子式，如何一次性将数字替换为下标？

thinkeran · 发表于 2009-9-17 11:04

这段代码很好很强大，有一个问题请教一下，能不能排除某些特定词组不被替换？

gankaoren · 发表于 2010-11-2 18:51

学习一下，高手很多

tangqingfu · 发表于 2010-11-2 20:02

谢谢chuhaiou兄的代码！
收藏备用！

keypress · 发表于 2010-11-3 19:49

收藏备用，顺便学习中

chuhaiou · 发表于 2011-11-19 14:26

Sub 化学方程式改下标()

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

thunor · 发表于 2011-11-20 22:58

本帖最后由 thunor 于 2011-11-20 23:00 编辑

这个东西也有出错的时候。比如Mg2+。丝毫没有贬低楼上几位高手的意思，相反，我学了不少内容，只是我真的遇见了这种情况，让我哭笑不得。

suede77 · 发表于 2014-10-25 17:04

如果文中有A201401等类似字样不被替代，又该如何操作？

tan133 · 发表于 2014-10-26 20:01

suede77 发表于 2014-10-25 17:04
如果文中有A201401等类似字样不被替代，又该如何操作？

不要全文处理嘛，没有那么懒吧？

leikaiyi123 · 发表于 2017-6-11 08:01

chuhaiou 发表于 2009-5-19 18:54
Sub 智能上下标()
Dim x, Y, j, k As Integer
Dim m, n As Long

1、不能处理域中的上下标
2、为何有些空格会被删？
3、建议wdToggle改为true，以免本来是下标的都改为非下标了。

		自动登录	找回密码
密码			免费注册

[求助] Word中很多化学分子式，如何一次性将数字替换为下标？

回复 10楼 chuhaiou 的帖子