国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 辦公 > Word > 正文

將Word正文中的注釋批量轉換為腳注

2019-11-05 20:39:53
字體:
來源:轉載
供稿:網友

同事老徐拿來一份Word文檔,這是他請人錄入的稿件,其中的注文都使用“【】”進行表示(見圖1),但這些注文放在正文中,看起來不是很合適。現在老徐希望將這些注文放到頁腳處,該如何實現呢?

圖1
圖1 Word文檔原稿

  我們可以利用VBA宏代碼對“【】”進行批量轉換,按下“Alt+F11”組合鍵,打開Microsoft Visual Basic編輯器窗口,依次執行“插入→模塊”,在右側的模塊窗格中手工粘貼如下代碼,這里的宏名稱可以任意命名:

Sub 腳注轉換()
    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

  代碼輸入完成之后,單擊工具欄上的保存按鈕,依次執行“文件→關閉并返回到Microsoft Word”,返回Word界面之后,按下“Alt+F8”組合鍵,選中列表框中的“腳注轉換”宏,單擊右側的“運行”按鈕,很快就可以看到圖2所示的效果。

圖2
圖2 Word腳注效果

  按下“Ctrl+H”組合鍵,打開“查找和替換→替換”對話框,將“查找內容”設置為“【”,“替換為”設置為空,即什么也不輸入,單擊“全部替換”按鈕可以將文檔中所有的“【”刪除,接下來再使用同樣的方法刪除所有的“】”,感興趣的朋友不妨一試。


發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板: 平凉市| 尼勒克县| 开原市| 大同县| 蓬莱市| 东兰县| 长顺县| 涡阳县| 汉阴县| 获嘉县| 和静县| 阜南县| 沂源县| 红安县| 岳阳市| 任丘市| 榆树市| 高雄县| 荔波县| 贵南县| 紫金县| 黄浦区| 固镇县| 区。| 甘南县| 福泉市| 凤翔县| 邢台市| 宜都市| 肥西县| 邵武市| 瑞安市| 崇信县| 西贡区| 房产| 江津市| 沙河市| 客服| 穆棱市| 凌海市| 福州市|