對(duì)于從事化學(xué)教學(xué)或需要撰寫(xiě)科技論文的朋友來(lái)說(shuō)，化學(xué)分子式是必須涉及的內(nèi)容之一，如果化學(xué)分子式的數(shù)量不是太多，那么可以將相關(guān)的數(shù)字手工設(shè)置為下標(biāo)，或者使用格式刷。不過(guò)，如果涉及的化學(xué)分子式數(shù)量比較多，而且其中又有其他的數(shù)學(xué)式，那么手工操作將相當(dāng)繁瑣，而且也容易遺漏，下面介紹三種解決這一難題的方法。

利用VBA宏代碼

可以借助VBA代碼批量設(shè)置分子式下標(biāo)，打開(kāi)Microsoft Visual Basic編輯器窗口，插入一個(gè)空白模塊，粘貼如下代碼：

Sub test()

With ActiveDocument.Characters

For i = 2 To .Count

If .Item(i).Text Like "#" And (.Item(i - 1).Text Like "[A-Za-z]" Or .Item(i - 1).Font.Subscript = True) Then

.Item(i).Font.Subscript = True

End If

Next i

End With

End Sub

返回Word主界面，按下“Alt+F8”組合鍵，打開(kāi)“宏”對(duì)話(huà)框，運(yùn)行test宏，很快就可以看到圖中所示的效果（如圖1），而其中的非化學(xué)分子式的數(shù)字并沒(méi)有被更改為下標(biāo)，很方便吧？

使用兩次替換法

上述方法還是麻煩了些，畢竟并非每時(shí)每刻都能記住上述代碼，其實(shí)還可以使用兩次替換的方法解決這一問(wèn)題。

打開(kāi)“替換”對(duì)話(huà)框，將查找內(nèi)容設(shè)置為“^$^#”，光標(biāo)跳轉(zhuǎn)到“替換為”文本框，設(shè)置為下標(biāo)格式，這一步驟是將化學(xué)分子式中的字母和數(shù)字統(tǒng)一替換為下標(biāo)格式（如圖2）；不關(guān)閉“替換”對(duì)話(huà)框，將查找內(nèi)容設(shè)置為“^$”，取消下標(biāo)的設(shè)置，這一步驟是將已經(jīng)設(shè)置為下標(biāo)的字母恢復(fù)為正常狀態(tài)，此時(shí)可以看到化學(xué)分子式中的所有數(shù)字已經(jīng)被統(tǒng)一設(shè)置為下標(biāo)格式。

使用兩次查找法

也可以使用兩次查找的方法：打開(kāi)“查找”對(duì)話(huà)框，將查找內(nèi)容設(shè)置為“^$^#”，將“在以下項(xiàng)中查找”設(shè)置為“主文檔”，此時(shí)會(huì)自動(dòng)選中化學(xué)分子式中后面帶數(shù)字的字母；不關(guān)閉“查找”對(duì)話(huà)框，將查找內(nèi)容更改為“^#”，此時(shí)需要將“在以下項(xiàng)中查找”設(shè)置為“當(dāng)前所選內(nèi)容”，所選中的就只是化學(xué)分子式中的數(shù)字了（如圖3）。接下來(lái)的操作就簡(jiǎn)單多了：保持當(dāng)前的選中狀態(tài)，單擊工具欄“字體”功能組的下標(biāo)按鈕即可將這些數(shù)字批量設(shè)置為下標(biāo)。