輕松實(shí)現(xiàn)化學(xué)式上下標(biāo)的一鍵輸入

1、輕松實(shí)現(xiàn)化學(xué)式上下標(biāo)的一鍵輸入徐林崗江蘇江都市丁溝中學(xué) 225235摘要：筆者是一名中學(xué)化學(xué)教師，工作中常常要輸入許多的化學(xué)式?；瘜W(xué)式中的上下標(biāo)在輸入時(shí)要不停地切換，十分不便，所以筆者嘗試用VBA編寫(xiě)了一段宏，很好地解決了這個(gè)問(wèn)題。關(guān)鍵詞：化學(xué)式，上下標(biāo)，宏隨著電腦日益的普及，中學(xué)化學(xué)老師在出試卷,寫(xiě)教案,寫(xiě)論文等的過(guò)程中都可能在使用電腦輸入處理了，在這個(gè)過(guò)程中,經(jīng)常需要書(shū)寫(xiě)各種化學(xué)式，但因?yàn)橐煌５厍袚Q輸入狀態(tài)為“上標(biāo)”“下標(biāo)”或“正?！?，這使得很多老師常常感到非常麻煩和累人，工作效率低下。本文就是試圖把煩瑣的輸入方法改進(jìn)成簡(jiǎn)單易用的操作。下面就是筆者用VBA編寫(xiě)的宏。使用時(shí)只要選擇含有化學(xué)

2、式的內(nèi)容，而后運(yùn)行一下宏就可以了，正確率幾乎是百分之百。Sub 智能上下標(biāo)() Dim x, y, j, k As Integer Dim m, n As Long Dim char As String x = Selection.Start y = Selection.End '記錄當(dāng)前選取的起始位置與終止位置 For j = x To y Step 1 '對(duì)選取內(nèi)容進(jìn)行枚舉，對(duì)于屬于化學(xué)式的內(nèi)容進(jìn)行改寫(xiě). Selection.Start = j - 1 Selection.End = j char = Selection.Text n = InStr("abcde

3、fghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ)）", char) If n <> 0 Then Selection.Start = j Selection.End = j + 1 char = Selection.Text m = InStr("0123456789", char) If m <> 0 Then k = 2 Selection.Font.Subscript = wdToggle Selection.Start = j Selection.End = j + k char =

4、Selection.Characters(k).Text m = InStr("0123456789-+", char) Do While m <> 0 If char = "+" Or char = "-" Then Selection.Start = j + k Selection.End = j + k + 1 char = Selection.Text m= InStr("0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ(（&qu

5、ot;, char) '如果是“+”表示加號(hào)，也不別在前面加上一個(gè)空格，以避開(kāi)它與離子符號(hào)間相互的干擾。 If m <> 0 Then GoTo line1 Else Selection.Start = j - 1 Selection.End = j + k char = Selection.Characters(1).Text End If If char = "O" Or char = "H" Then '與line1共同作用以防止將NH4+、AlO2-這一類(lèi)的一價(jià)離子，錯(cuò)誤地改寫(xiě)成NH4+、AlO2-。 Selectio

6、n.Start = j Selection.End = j + 1 Selection.Font.Subscript = wdToggle Selection.Font.Subscript = wdToggle Selection.Start = j + 1 Selection.End = j + k Selection.Font.Superscript = wdToggle GoTo line1 End If Selection.Start = j Selection.End = j + k Selection.Font.Superscript = wdToggle Selection.Fo

7、nt.Superscript = wdToggle GoTo line1 End If k = k + 1 Selection.Start = j Selection.End = j + k char = Selection.Characters(k).Text If char = "-" Or char = "+" Then Selection.Start = j Selection.End = j + k - 2 Selection.Font.Subscript = wdToggle Selection.Font.Subscript = wdTogg

8、le Selection.Start = j + k - 2 Selection.End = j + k Selection.Font.Superscript = wdToggle GoTo line1 Else m = InStr("0123456789", char) End If Loop Selection.Start = j Selection.End = j + k - 1 Selection.Font.Subscript = wdToggle Selection.Font.Subscript = wdToggle End Ifline1: Selection.

9、Start = j Selection.End = j + 1 char = Selection.Text m = InStr("-", char) If m <> 0 Then Selection.Start = j + 1 Selection.End = j + 2 char = Selection.Text m = InStr("0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ(（", char) If m = 0 Then Selection.Start =

10、j Selection.End = j + 1 Selection.Font.Superscript = wdToggle End If End If m = InStr("+", char) If m <> 0 Then Selection.Start = j + 1 Selection.End = j + 2 char = Selection.Text m = InStr("0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ(（+",char) If m = 0 Then Selection.Start = j Selection.End = j + 1 Selection.Font.Superscript = wdToggle End If End If End If Next j Selection.Start = y Selection.End = yEnd Sub結(jié)束語(yǔ) 就我國(guó)目前大多化學(xué)老師來(lái)說(shuō)，用微機(jī)進(jìn)行無(wú)紙化辦公變得越來(lái)越必要和普遍，而在辦公過(guò)程中用得最多的就是OFFICE辦公系統(tǒng)，如何提高工作效率則是其中