帮忙完善化学方程式自动添加小括号

YOUXI01

'/*----------------------------------------------------------
'在光标所在文本框中获取光标前的若干个字符
'参数CharLen是要获取字符的长度
'
Function GetStrByCur(CharLen As Long) As String
Dim objRange As TextRange, CharBeginPoint As Long
'获得当前光标所在位置
Set objRange = ActiveWindow.Selection.TextRange

CharBeginPoint = objRange.Start

'获得光标前的若干字符
GetStrByCur = objRange.Parent.TextRange.Characters(CharBeginPoint - CharLen, CharLen)
End Function


Sub test()
'这里仅以Cu(NO3)2为例，实际过程中最好写成函数才有实际意义。

'论坛里有很多代码，多看，多思考，你的编程能力就会大大提高！
'还有一点就是最好先熟悉一下OFFICE VBA里基本的 对象、事件、方法等

Dim lstrLen As Long
With ActiveWindow.Selection.ShapeRange.TextFrame.TextRange

    If GetStrByCur(4) = "NO32" Then
        lstrLen = Len(.Text)
        .Characters(lstrLen - 3, 1).InsertBefore "("
        .Characters(lstrLen + 1, 1).InsertBefore ")"
    End If

End With
End Sub

chuhaiou

再次谢谢你的大力帮助！我的编程水平太差了，很多问题靠网上找，网上问才能得到解决，自己只能编一点简单的程序。

dzblang

好想学习，但是不知该怎么做

leikaiyi123

这个test点一下只运行一次，自动加括号一次，如何在录入的时候时时运行test呢？