如何在 Word 中快速域转文本

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

如果您需要在 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 > 转换 > 域转文本，无需选中文档中的任何内容，系统会弹出提示框进行操作确认。点击是即可继续。

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

>>>

点击此处，了解更多关于 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