如何在 Word 中将所有尾注转换为纯文本

Author: Sun Last Modified: 2025-05-07

Word 中的尾注通常用于引用或附加参考文献，但有时您可能需要将它们转换为普通文本，以便于编辑或格式化。手动复制和粘贴每个尾注可能会很繁琐，尤其是在长文档中。本指南将向您展示三种将尾注转换为纯文本的高效方法：

手动将尾注转换为文本

使用 Kutools for Word 将尾注转换为文本

使用 VBA 将尾注转换为文本

手动将尾注转换为文本

请按照以下步骤手动将 Word 中的尾注转换为纯文本：

将光标放在尾注部分的任意位置，然后按 Ctrl + A 选择文档中的所有尾注。
按 Ctrl + C 复制所选尾注。
按 Ctrl + End 将光标移动到文档末尾，就在尾注部分之前。
按 Ctrl + V 将复制的尾注粘贴到文档末尾。尾注将保持其顺序，但会被转换为纯文本。
如有必要，手动将每个粘贴的尾注前的数字“1”替换为其原始编号。

使用 Kutools for Word 轻松将尾注转换为文本

手动将尾注转换为文本在 Word 中可能会很繁琐，尤其是对于不熟悉 VBA 的初学者。然而，使用 Kutools for Word，您可以使用“尾注转文本”工具一键快速完成此任务。

Kutools for Word，内置 AI 🤖，提供超过 100 种实用功能，助您简化任务。

立即下载

点击 Kutools > 转换 > 尾注转文本.

单击“尾注转文本”后，文档中的尾注将立即转换为文本，如下图所示：

Document with endnotes converted to text

Kutools for Word 是终极的 Word 插件，能够简化您的工作并提升文档处理技能。立即获取！

使用 VBA 将尾注转换为文本

在 Word 中，您还可以使用 VBA 代码将尾注转换为纯文本。请按照以下步骤操作：

按 Alt + F11 打开 Microsoft Visual Basic for Applications 窗口。

点击模块从插入选项卡，然后将以下 VBA 代码复制并粘贴到模块窗口中。

Sub convertendnote()
Dim aendnote As Endnote
For Each aendnote In ActiveDocument.Endnotes
ActiveDocument.Range.InsertAfter vbCr & aendnote.Index _
& vbTab & aendnote.Range
aendnote.Reference.InsertBefore "a" & aendnote.Index & "a"
Next aendnote
For Each aendnote In ActiveDocument.Endnotes
aendnote.Reference.Delete
Next aendnote
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find.Replacement.Font
.Superscript=True
End With
With Selection.Find
.Text="(a)([0-9]{1,})(a)"
.Replacement.Text="\2"
.Forward=True
.Wrap=wdFindContinue
.Format=True
.MatchWildcards=True
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub