如何在 Word 中將所有尾註轉換為純文本

Word 中的尾註通常用於引用文獻或補充參考資料，但有時您可能需要將其轉換為一般文字，以便更輕鬆地編輯或格式化。手動逐一複製貼上每個尾註不僅耗時費力，在長篇文件中更是格外繁瑣。本指南將為您介紹三種高效方法，助您快速將尾註轉換為純文字：

手動尾注轉文本

使用 Kutools for Word 尾注轉文本

透過 VBA 尾注轉文本

---

手動尾注轉文本

請依照下列步驟，在 Word 中手動將尾註轉換為純文本：

1. 將游標置於尾註區段的任意位置，然後按下 Ctrl + A，即可選取文件中的所有尾註。
2. 按下 Ctrl + C，即可複製所選的尾註！
3. 按下 Ctrl + End，即可將游標快速移至文件結尾（位於尾註區段之前）。
4. 按下 Ctrl + V，將複製的尾註貼到文件結尾處。尾註將維持原有順序，並轉換為純文字。

   

5. 如有需要，請手動將每個貼上的尾註前的編號「1」還原為其原始編號。

---

透過 Kutools for Word 輕鬆尾注轉文本

在 Word 中手動將尾注轉為文本可能相當耗時，尤其對不熟悉 VBA 的初學者而言更是如此。然而，透過 Kutools for Word，您只需點擊一下，即可利用 Convert Endnotes to Text 工具快速完成此任務！

1. 點擊 Kutools＞ 轉換＞ 將尾註轉為文字。

   

當您點擊 Convert Endnotes to Text 後，文件中的尾註將立即轉換為文字，如下方截圖所示：

---

透過 VBA 尾注轉文本

在 Word 中，您也可以透過 VBA 程式碼將尾註轉換為純文字。請依照下列步驟操作：

1. 按下 Alt + F11，立即開啟 Microsoft Visual Basic for Applications 視窗！
2. 點擊模組，從插入索引標籤中，然後將下列 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

3. 點擊執行按鈕，或按下 F5 鍵，立即執行 VBA 程式碼！

示範：在 Word 中快速將所有尾註轉換為文字

---

相關文章：

• 在 Word 中一次轉換多個表格轉文本
• 在 Word 中公式轉為圖片

---