同事老徐拿來一份word文檔，這是他請人錄入的稿件，其中的注文都使用“【】”進(jìn)行表示(見圖1)，但這些注文放在正文中，看起來不是很合適�，F(xiàn)在老徐希望將這些注文放到頁腳處，該如何實現(xiàn)呢？
圖1 Word文檔原稿
我們可以利用VBA宏代碼對“【】”進(jìn)行批量轉(zhuǎn)換，按下“Alt+F11”組合鍵，打開Microsoft Visual Basic編輯器窗口，依次執(zhí)行“插入→模塊”，在右側(cè)的模塊窗格中手工粘貼如下代碼，這里的宏名稱可以任意命名：
Sub 腳注轉(zhuǎn)換()
Dim myRange As Range, NtRange As Range, strNT As String
Application.ScreenUpdating = False
Set myRange = ActiveDocument.Content
NF: With myRange.Find
.Text = "【*】"
.MatchWildcards = True
Do While .Execute = True
Set NtRange = ActiveDocument.Range(myRange.Start, myRange.Start)
strNT = myRange.Text
myRange.Delete
ActiveDocument.Footnotes.Add NtRange, , strNT
myRange.SetRange myRange.End, ActiveDocument.Content.End - 1
GoTo NF
Loop
End With
Application.ScreenUpdating = True
End Sub
代碼輸入完成之后，單擊工具欄上的保存按鈕，依次執(zhí)行“文件→關(guān)閉并返回到Microsoft Word”，返回Word界面之后，按下“Alt+F8”組合鍵，選中列表框中的“腳注轉(zhuǎn)換”宏，單擊右側(cè)的“運行”按鈕，很快就可以看到圖2所示的效果。
圖2 Word腳注效果
按下“Ctrl+H”組合鍵，打開“查找和替換→替換”對話框，將“查找內(nèi)容”設(shè)置為“【”，“替換為”設(shè)置為空，即什么也不輸入，單擊“全部替換”按鈕可以將文檔中所有的“【”刪除，接下來再使用同樣的方法刪除所有的“】”，感興趣的朋友不妨一試。
相關(guān)閱讀