在Word文檔中將自動編號轉換為普通文本的2種方法

Word解決方案 2025 年 9 月 28 日

在本文中，我們打算向您展示兩種將自動編號轉換為Word文檔中普通文本的方法。

通常，我們從Word中的自動編號功能中受益匪淺。它為我們省去了列出項目和組織段落的麻煩。但是，這是一個轉折。通常，文檔需要多次修訂。在添加和刪除文本的過程中，數字會受到影響。因此，我們需要將這些“動態”數字轉換為純文本。因此，我們可以保護文檔格式。

以下是您需要的兩種方法。而且，在嘗試之前，我們強烈建議您先備份文件。如果在將文本轉換為普通文本後必須對文本進行自動編號，則始終可以使用備份。

方法1：僅保留文本

首先，選擇包含自動編號的文字。
然後右鍵單擊。
接下來，在列表菜單上選擇“複製”。
現在按“刪除”以刪除原始文本。
然後再次右鍵單擊該區域。
這次在“粘貼選項”下選擇“僅保留文本”。

現在您已成功將自動編號轉換為靜態編號，下面是一個示例：

您可能已經註意到文檔格式實際上發生了一些變化。如果您的文檔僅包含幾個數字，並且不需要格式化標準，則可以安全地使用此方法。但是，如果您的文檔具有多級列表，則必須多次重複這些操作。

實際上，這就是為什麼我們有第二種方法，即使用VBA代碼的原因。

方法2：使用VBA代碼

首先，請確保功能區中有“開發人員”選項卡。如果不是，請參考我們以前的文章：如何將背景音樂插入Word文檔
其次，單擊“開發人員”選項卡。
第三，在“代碼”組中單擊“ Visual Basic”。
現在，您已經打開了VBA編輯器。在左側列中，找到您的文檔名稱的項目。然後雙擊“ ThisDocument”以打開右側的編輯區域。
現在，讓我們看兩種不同的情況。首先，如果您只想轉換自動編號的選擇，則應複製並粘貼以下代碼：

Sub ConvertSelectAutoNumberToText()
    If ActiveDocument.Lists.Count > 0 Then
        Selection.Range.ListFormat.ConvertNumbersToText
    Else

    End If
End Sub

但是，如果您已釘上整個文檔的最終草案，則應採用以下內容將所有自動編號轉換為純文本：

Sub ConvertAllAutoNumberToText()
    If ActiveDocument.Lists.Count > 0 Then
        Dim lisAutoNumList As List

        For Each lisAutoNumList In ActiveDocument.Lists
            lisAutoNumlist.ConvertNumbersToText
        Next
    Else
              
    End If
End Sub