假設您的 Word 文檔中有許多批註，您要如何一次性將所有這些批註轉換為腳註或尾註呢？本文提供了使用 VBA 方法來實現這一操作。
以下的 VBA 程式碼可以幫助您快速將當前文檔中的所有批註轉換為腳註或尾註。請按照以下步驟操作。
1. 打開包含要轉換為腳註或尾註的批註的文檔，按下 Alt + F11 鍵以打開 Microsoft Visual Basic for Applications 視窗。
2. 在 Microsoft Visual Basic for Applications 視窗中，點擊 插入 > 模組。然後將以下 VBA 程式碼複製到模組視窗中。
VBA 程式碼：將批註轉換為腳註：
Sub ConvertCommentsToFootnotes()
Dim xComm As Comment
Dim xCommRange As Range
Dim xDoc As Document
Application.ScreenUpdating = False
Set xDoc = ActiveDocument
For Each xComm In xDoc.Comments
Set xCommRange = xComm.Range
xDoc.Footnotes.Add xComm.Scope, , xCommRange.Text
xComm.Delete
Next
Application.ScreenUpdating = True
End Sub
VBA 程式碼：將批註轉換為尾註：
Sub ConvertCommentsToEndnotes()
Dim xComm As Comment
Dim xCommRange As Range
Dim xDoc As Document
Application.ScreenUpdating = False
Set xDoc = ActiveDocument
For Each xComm In xDoc.Comments
Set xCommRange = xComm.Range
xDoc.Endnotes.Add xComm.Scope, , xCommRange.Text
xComm.Delete
Next
Application.ScreenUpdating = True
End Sub
3. 按下 F5 鍵以執行程式碼。
根據所應用的 VBA 程式碼，當前文檔中的所有批註都會立即轉換為腳註或尾註。
Kutools for Word 不僅是一套工具，更是一個旨在提升您生產力的智慧解決方案。憑藉 AI 驅動的功能和最核心的特性，Kutools 幫助您在更短的時間內完成更多任務：
🤖 Kutools AI 功能：AI助手 / 即時助手 / 超級潤色（保留格式）/ 超級翻譯（保留格式）/ AI遮擋 / AI校正...
📘 文件精通：拆分頁面 / 合併文檔 / 以多種格式導出選擇內容（PDF/TXT/DOC/HTML...）/ 批量轉換為 PDF...
✏ 內容編輯：跨多個文件進行批量查找和替換 / 調整所有圖片大小 / 翻轉表格的行與列 / 表格轉文本...
🧹 輕鬆清理：清除多餘空格 / 分節符 / 文本框 / 超鏈接 / 更多清除工具，請前往“清除”組...
➕ 創意插入：插入千位分隔符 / 複選框 / 選項按鈕 / 二維碼 / 條形碼 / 多張圖片 / 在“插入”組中發現更多...
🔍 精確選擇：精準定位特定頁面 / 表格 / 形狀 / 標題段落 / 使用更多“ 選擇 ”功能增強導航...
⭐ 星級增強功能：跳轉至任意位置 / 自動插入重複文本 / 在文檔窗口之間切換 / 11 種轉換工具...
