假设您的 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 不仅仅是一套工具——它是一个旨在提升您生产力的智能解决方案。通过人工智能驱动的功能和最核心的特性，Kutools 帮助您在更短的时间内完成更多任务：
🤖 Kutools AI 功能：AI助手 / 实时助手 / 超级润色（保留格式）/ 超级翻译（保留格式）/ AI遮挡 / AI校正……
📘 文档掌控：分割页面 / 文档合并 / 区域导出为多种格式（PDF/TXT/DOC/HTML等）/ 批量转换为PDF……
✏ 正文编辑：跨多个文件批量查找与替换 / 一键调整所有图片大小 / 翻转表格行列 / 表格转文本……
🧹 高效清理：一扫多余空格 / 分节符 / 文本框 / 超链接 / 想了解更多删除工具，请前往删除分组……
➕ 创意插入：插入千位区分符 /复选框 /选项按钮 / 二维码 / 条形码 / 批量插入图片 / 更多内容请见插入分组……
🔍 精准选取：快速定位指定页面 / 表格 / 形状 / 标题段落 / 利用更多 选择 功能提升导航体验……
⭐ 实用增强：跳转任意区域 / 自动插入重复文本 / 文档窗口间一键切换 /11 项转换工具……
🌍 支持40多种语言：自由选择你喜欢的界面语言——Kutools支持英语、西班牙语、德语、法语、中文及其他40余种语言！
内含 Office Tab Pro · Kutools for Excel · Kutools for Outlook · Kutools for Word · Kutools for PowerPoint
📦 五大工具一站式集成 | 🔗 无缝兼容Microsoft Office | ⚡立即提升效率、节省时间