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

YOUXI01

你是对选定文本所有内容判断是否 like “...”当然是只能识别一个

建议：
1.利用程序获取当前选定文本的光标前 若干个字符（一般6个已经足够）来进行判断
2.其实没必要写那么的条件判断，化学里有那么多的化学式，你不可能一个一个来判断的，利用like的模糊判断即可

如：if TestStr Like "N[OH][2-9][2-9]"  then...
这一句话就可以检测 TestStr 是否是 NO32,NH42等形式

chuhaiou

谢谢你的帮助，不过我不会哟。
if TestStr Like "N[OH][2-9][2-9]"  then
   With ActiveWindow.Selection.ShapeRange.TextFrame.TextRange
        .Characters(Start:=1, Length:=0).InsertAfter "("
        .Characters(4).InsertAfter ")"
    End With
    End If
这样在PPT中输入NH42为什么不出现小括号呢



能否举一例，如（NH4）2CO3。谢谢！

[ 本帖最后由 chuhaiou 于 2011-3-15 21:53 编辑 ]

chuhaiou

怎么沉得这么快？赶紧顶一下！

xmyjk

最近正好有在汇集一个化工项目的报告，正好可以使用看看，谢谢分享。

chuhaiou

.利用什么程序能获取当前选定文本的光标前若干个字符呢？

YOUXI01

不好意思，最近在弄 广一模 的一些事情，另外在帮一个老师 做省级骨干教师的资料，所以都是匆匆忙忙逛一下论坛就下了，我等下再给个简单的实例吧

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()
'使用方法：在PPT中新建一个文本框，并将光标插入该文本框中，输入一段文字
'然后运行本段程序即可


'获取光标前的三个字符
MsgBox GetStrByCur(3)

'获取光标前的1个字符
MsgBox GetStrByCur(1)
End Sub

chuhaiou

太谢谢了！可惜我不会调用这个函数。希望能得到进一步的帮助。不好意思啊，我太菜了。

[ 本帖最后由 chuhaiou 于 2011-3-17 14:45 编辑 ]

YOUXI01

test函数里有说明啊

chuhaiou

不知这个函数如何与..InsertAfter "("相联系啊。最好能给个实例哟，如让CuNO32变成Cu(NO3)2。谢谢！我实在不行啊！

[ 本帖最后由 chuhaiou 于 2011-3-18 15:48 编辑 ]