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

佛山小老鼠 · 发表于 2010-1-19 00:47

楼上的辛苦了，呵呵，拿走了

chuhaiou · 发表于 2010-1-19 12:36

原帖由 YOUXI01 于 2010-1-18 23:20 发表
程序开始支持PPT，PPT版化学快录已经发布

程序功能：
1、支持化学输入模式：只要锁定键盘为大写模式，在当前PPT输入窗口中，程序能全自动识别化学式、方程式中的上下标，自动转化字母大小写、自动添加括号等，而 ...

谢谢你无私的奉献！

chuhaiou · 发表于 2010-2-2 12:22

本论坛的会员“瘦老头”（化学老师）就是本论坛的会员yuyvtul

[ 本帖最后由 chuhaiou 于 2010-2-2 12:25 编辑 ]

YOUXI01 · 发表于 2011-3-10 17:15

吃透它，你的程序水平会上升一个层次

chuhaiou · 发表于 2011-3-9 19:38

化学式中自动加括号

chuhaiou · 发表于 2011-3-9 22:00

怎么在上程序中对分子式自动加括号如CUOH2变成CU（OH）2

YOUXI01 · 发表于 2011-3-10 11:37

在textrange指定的位置 insertafter 括号即可
你可以将指定字符设置为上标，同样也可以在那个位置插入字符嘛

chuhaiou · 发表于 2011-3-10 16:20

是网上找的程序，我不会哟。

chuhaiou · 发表于 2011-3-12 16:37

If Mid(“OH2”2,2) Then
.InsertBefore ("（")这里不知怎样写哟
.InsertAfter ("）")
End If

[ 本帖最后由 chuhaiou 于 2011-3-13 08:56 编辑 ]

chuhaiou · 发表于 2011-3-14 11:01

怎样“在textrange指定的位置”？呢
Sub test()
s = ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Text
If s = "CaHCO32" Or s = "MgHCO32" Then
With ActiveWindow.Selection.ShapeRange.TextFrame.TextRange
      .Characters(2).InsertAfter "("
      .Characters(7).InsertAfter ")"
End With
End If
If s = "NH42SO4" Then
With ActiveWindow.Selection.ShapeRange.TextFrame.TextRange
      .Characters(Start:=1, Length:=0).InsertAfter "("
      .Characters(4).InsertAfter ")"
End With
End If
End Sub
但这样只能解决文本框或占位符中第一个化学式，对第二个或多个化学式就无能为力了！怎样解决呢？帮帮吧，先谢谢了。我想还是应当用提取字符串的方法才能做到吧！但MID是替换字符串

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

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

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

回复 6楼 dsp5000 的帖子

回复 17楼 chuhaiou 的帖子

回复 15楼 chuhaiou 的帖子

回复 16楼 YOUXI01 的帖子

回复 16楼 YOUXI01 的帖子