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

作者Sun修改日期2025-02-14

Word 中的尾注通常用于引文或补充说明，但有时您可能希望将其转换为普通文本，以便更便捷地进行编辑或排版。尤其是在处理长文档时，逐一手动复制粘贴每个尾注既繁琐又耗时。本文为您提供三种高效方法，助您轻松将尾注转换为纯文本：

手动尾注转文本

通过 Kutools for Word 尾注转文本

使用 VBA 尾注转文本

手动尾注转文本

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

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

借助 Kutools for Word，轻松实现尾注转文本

在 Word 中，手动将尾注转换为文本操作较为繁琐，尤其对不熟悉 VBA 的新手来说更是如此。但借助 Kutools for Word 的 Convert Endnotes to Text 工具，您只需一键即可轻松完成该操作。

Kutools for Word，搭载 AI 功能🤖，提供超过 100 项实用功能，助您轻松完成各类任务。

立即下载

单击 Kutools> 转换>Convert Endnotes to Text。

单击 Convert Endnotes 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