如何在 Word 中快速将域代码转换为文本

Author: Sun Last Modified: 2025-05-07

如果需要在 Word 中将域代码转换为纯文本，本教程将根据您的需求指导您使用不同的方法。第一种方法是将域代码转换为其显示值，仅保留可见内容。另外两种方法则将域代码保留为文本，以原始格式显示，例如 { SEQ Table \* ARABIC }。

使用快捷键将域代码转换为显示值

使用 Kutools for Word 将域代码转换为文本

使用 VBA 将域代码转换为文本

使用快捷键将域代码转换为纯文本

如果只需要移除域功能并保留显示值，可以使用一个简单的快捷键：

通过按 Ctrl + A 选择整个文档。 提示： 如果只想转换特定范围内的域代码，请仅选择该部分而不是整个文档。
按 Ctrl + Shift + F9 将所有域转换为其显示值。

注意：此方法仅保留当前域值。如果需要将域代码保留为文本，并以原始格式显示（例如 { SEQ Table \* ARABIC }），请使用以下方法。

使用 Kutools for Word 将域代码转换为文本

Kutools for Word 提供了一种简单的方法，可将域代码转换为文本，适用于整个文档或选定部分。

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

立即下载

如果想在特定范围内将域代码转换为文本，首先选择该范围，然后点击 Kutools > 转换 > 域转文本.
如果要转换整个文档中的域代码，只需点击应用该功能即可，无需在文档中选择任何内容。 Kutools > 转换 > 域转文本 随后会弹出一个提示框要求确认。点击是继续操作。

所选范围或整个文档中的所有域代码都将被转换为纯文本。

>>>

Document with field codes converted to text

点击此处了解更多关于 Kutools for Word 的域转文本功能详情。

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

使用 VBA 将域代码转换为文本

VBA 提供了处理 Word 文档中域代码的强大方法。根据使用的脚本，您可以提取所有域代码并将它们作为文本保存到新文档中，或者用实际的代码表示形式替换原始文档中的域代码（例如 { SEQ Table \* ARABIC }）。

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

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

注意：以下 VBA 代码提供两种不同结果。选择适合您需求的代码。

VBA 1：提取域代码并将其保存到新的 Word 文档中

Sub fieldcodetotext()
Dim MyString As String
For Each aField In ActiveDocument.Fields
    aField.Select
    MyString = MyString & vbCr & Selection.Fields(1).Code.Text
Next aField
Documents.Add
ActiveDocument.Content.InsertAfter MyString
End Sub

VBA 2：在原始文档中将域代码替换为其代码表示形式

Sub fieldcodetotext()
Dim MyString As String
ActiveWindow.View.ShowFieldCodes = True
For Each aField In ActiveDocument.Fields
    aField.Select
    MyString = "{ " & Selection.Fields(1).Code.Text & " }"
    Selection.Text = MyString
Next aField
ActiveWindow.View.ShowFieldCodes = False
End Sub