求助：如何化学式自动识别的宏？

ahhnztz

我是个中学化学教师,想编写个宏，实现如下功能：在英文半角状态下，从键盘上输入一个化学式如“H2SO4”或“h2so4”，一击空格键就自动识别为“H₂SO₄”，敬请高手们给予指点，在下先谢谢了！！！

e-mail:ahhnztz@126.com   QQ:511181363

yuyvtul

这个嘛，有兴趣和我联系。QQ442768539

ssq1109

这太容易了，用WORD自带的自动更正是最佳方法。请注意：各类软件最好的老师是它自己的帮助文件。

c81

处理这类问题时主要看工作量有多少，如果少，直接手工设置吧，如果多，可以用自动更正或自动图文集来做，还可以用专门的小工具。

sylun

看看如下宏是否可行。如果可行，给其指定一个快捷键，需要时按一下快捷键即可。

Sub ChamForSub()
'只针对插入点前的一个分子式
   
    Dim a As Range
   
    With Selection
        If .Text Like Chr(32) Then
            .Next(wdWord).Select
        End If
        If .Previous(wdWord) Is Nothing Then Exit Sub
        With .Previous(wdWord)
            If Val(.Text) > 0 Then GoTo NT
            For Each a In .Characters
                If a.Text Like "[!0-z ]" Then GoTo NT
            Next a
            For Each a In .Characters
                If a Like "#" Then
                    a.Font.Subscript = True
                'ElseIf a Like "[a-z]" Then
                '    a.Font.AllCaps = True
                ElseIf a = Chr(32) Then a.Select: GoTo NT
                End If
            Next a
        End With
NT:     .SetRange Start:=.End, End:=.End
        .Font.Subscript = False
    End With
End Sub

现在想来，字母全部改为大写并不合适，要判断准确较复杂，故不作改动。

[此贴子已经被作者于2007-4-1 22:58:27编辑过]

ahhnztz

sylun:您好 

谢谢您，  您编写的宏能完成我主帖的功能：在英文半角状态下，从键盘上输入一个化学式如“H2SO4”一击空格键就自动识别为“H₂SO₄”。请您再给编写一下。   我主帖上没有讲清楚，敬请见谅。下面我把意思和想再表述一下：     功能:  在英文半角大写状态下：输入化学式如：KAL(SO4)3 或CAJ2+  CUSO4.5H20 一击空格键就自动识别为请变为 KAl(SO₄)_{2     或}Ca²⁺     CuSO₄.5H₂O

        思路：1.从盘上输入的大写字符先放入一个数组（一定是数组，这样好为第二取数据做准备，同时为大写转小写做准备）中，一击空格键表示输入结束并开始自动更正。（您这一步我完成不了，敬请您和其他高手们帮助完成，在下先谢谢了）

                  2.自动更正时，从数组中取字符并进行判断。①如果数组元素是字符“J”，则删除“J”，并把下一数组元素设为上标。②如果数组元素是“＋”或“－”，则将该元素设为上标。③如果数组元素是“）”，若下一数组元素是数字则设为下标。④余下的数组元素是数字，则都设为下标。

                      3.大写英文字母转变为小定的条件：从下面和化学式本身找规律进行转换。

ssq1109

编写宏只能对付有限的化学式，没有那个必要（当然你要据此学VBA例外），用WORD本身的功能既简单又快捷，且可随时添加、修改，数目几乎是无限的，输入时连空格也不必打，再打后面的字符它就出来了。

yuyvtul

QUOTE:

以下是引用ssq1109在2007-4-2 21:31:35的发言：
编写宏只能对付有限的化学式，没有那个必要（当然你要据此学VBA例外），用WORD本身的功能既简单又快捷，且可随时添加、修改，数目几乎是无限的，输入时连空格也不必打，再打后面的字符它就出来了。

我也认为没那个必要，但是，编写宏应该能对付几乎是全部的化学式，只不过要将一些有歧义的特别处理即可。

sylun

其实楼主的问题对我来说实在太难了，一来我对VBA还是刚入门，掌握的处理方法很有限，二来化学方面的知识已忘得差不多了。原来只是想利用这道题练练用VBA对字符串进行处理而已。
现在看楼主的重新表述，并结合练习时遇到的问题，觉得楼主可能要指出待转换化学式字符串的构成特征，以便于对这类字符串进行识别，比如，除了由20来个字母及10个数字外，当中还会有什么特殊字符？该字符串的前一字符是否一定是空格、或者该字符串的第一个字符肯定是字母？此外，如何准确判断何时该转换为小写字母这个问题可能是最难处理的。

带格式的自动更正操作起来确实很方便。

ahhnztz

谢谢大家的关心，帮助。我将继续努力……