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

chuhaiou

问题已经解决http://chuhaiou.blog.163.com/
Sub 切换为绘图()
'
' 切换为绘图 Macro
''
    Selection.InlineShapes.AddOLEObject ClassType:="PBrush", FileName:="", _
        LinkToFile:=False, DisplayAsIcon:=False
End Sub

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

lu_zhao_long

原帖由 chuhaiou 于 2009-10-17 22:32 发表
Sub 方程式()
'
' 用于方程式中的上下标自动调整

Dim s As String
    s = Selection
   
For i = 2 To Len(Selection)
  If IsNumeric(Mid(s, i, 1)) Then  '遇到数字则
  
     If Mid(s, i + 1, 1) = ...

有一定参考作用！
不过，对于简单的无机化学方程式可以用这种方法，对于有机化学及高分子化学的方程式可能就不太好用了！我通常用“微软方程3.0”来编辑化学方程式的。

YOUXI01

经过了几个月的努力，实现了化学方程式的智能识别，一边输入，一边识别，当然也只能支持简单的无机化学化学方程式

chuhaiou

我也做了一个象《化学金排》那样的东东，能在窗口输入化学式（不分英文大小写状态，不用区分元素符号大小写和上下标,不用输入括号．如输入ＣＵＯＨ２就能得到Ｃu（OH）2）,然后回车才能到WORD中,窗口功能几乎与《化学金排》一样,但没有你的直接在WORD一边输入，一边识别那么爽(不过引用你的FuncForDoc.dll到我的软件中来也很爽！）!近来在网上发现一个名为WordChem的不收费化学软件[作者：2laoshi(youxi01)，个人博客：http://www.2laoshi.cn]，就是老兄吧!WordChem用起来就是方便!我的窗口输入中有:Mid(text.text1, ．．．, ．)之类的语句，但直接在WORD输入化学式，就没有text.text1，用什么代替text.text1呢？请指教！

[ 本帖最后由 chuhaiou 于 2009-10-19 18:17 编辑 ]

konggs

记得以前本论坛的会员“瘦老头”（化学老师）也做过类似的东东。

dsp5000

4楼的链接打不开了。

chuhaiou

这个是选中后转换,能否就此改成一边输入，一边识别(转换)呢?

YOUXI01

WordChem是很早以前，测试的时候发布的版本，新的程序已经有了很大的改变了，包括：修复了诸多小bug；有一个很大的改动是添加支持“经典题库”（方便收集、调用典型例题）功能，还有一个大的变化就是添加了主要功能对PPT的支持，如：智能识别、化学输入模式等。

不过因为前一阵子的误操作，导致源码丢失，目前只能慢慢恢复...

chuhaiou

太可惜了，希望能早日能见到你的新版本！我是用PPT加载宏实现PPT与WORD间联系的！

[ 本帖最后由 chuhaiou 于 2009-10-23 16:26 编辑 ]

YOUXI01

程序开始支持PPT，PPT版化学快录已经发布

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

2、智能识别上下标：能够智能设置PPT窗口下选定文本框中的上下标

3、程序化输出原子结构示意图、电子式、反应条件

4、支持快捷键：
F2:进入化学输入模式
Ctrl+四个方向键，分别在光标后插入“↑” “ ↓” “ ←” “ →”字符
Ctrl + 小键盘上的数字，在光标后插入相应的带圈数字

程序下载地址：
http://blog.sina.com.cn/s/blog_645475270100g93j.html