通用分子式下标

chuhaiou

Sub 通用分子式下标()
U = Mid(Application.Caption, 11, 1)
If U = "E" Then
Set QY = Selection
For Each G In QY
G.Select
Set D = Selection
Call LCY(D, K, U)
Next G
ElseIf U = "W" Then
Set D = Selection
Call LCY(D, K, U)
Selection.EndKey Unit:=wdLine
Selection.Font.Subscript = wdToggle
ElseIf U = "P" Then
Set D = ActiveWindow.Selection.ShapeRange.TextFrame.TextRange
Call LCY(D, K, U)
End If
End Sub
Sub LCY(D, K, U)
l = Len(D)
For I = 2 To l
Y = Asc(Mid(D, I - 1, 1))
X = Asc(Mid(D, I, 1))
Q = Y > 64 And Y < 123 Or Y = 41
R = X > 47 And X < 58 And K
If X > 47 And X < 58 And Q Or R Then
If U = " W " Then
D.Characters(I).Font.Subscript = 1
Else
D.Characters(Start:=I, Length:=1).Font.Subscript = 1
End If
K = 1
Else: K = 0
End If
Next I
End Sub

[ 本帖最后由 chuhaiou 于 2010-3-11 11:29 编辑 ]

Admin

   

很遗憾通知楼上朋友，您的帖子在24小时之内没有任何回复！

通常情况下，本论坛发布的主题帖会在8小时被回复或处理。您的帖子在24小时之内未被回复，其中的原因可能是：

1、问题表述不清、模棱两可，难以理解，帮助者被搞晕了，夺帖而出；
2、没有上传必要的附件，或附件被遗忘在某个角落；
3、发帖提问时，语气带棱角、带挑衅，不幸被列入不受欢迎的帖子；
4、所提问题不成立，或提不合理的要求，乐于助人者使出“走为上”之计；
5、话题较偏、较冷或者发布到了不合适的版块，暂时无人问津，顾影自怜。


为了提高您的问题解决效率，我们推荐您阅读以下文章：
* 如何发表新话题和上传附件：http://club.excelhome.net/thread-45649-1-1.html
* 发帖的技巧：http://club.excelhome.net/thread-176339-1-1.html
* EH技术论坛的最佳学习方法：http://club.excelhome.net/thread-117862-1-1.html

cxffxc

LZ什么也不说明，大家知道是什么呀。
因此没有人回贴。