跳至主要内容

Kutools for Office — 一套工具,五种功能。事半功倍。

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

Author: Sun Last Modified: 2025-08-22

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

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

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

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

推荐的Word生产力工具

Kutools for Word:集成AI 🤖,超过 100 个高级功能可节省您50%的文档处理时间。免费下载

Office Tab:为Word(及其他Office工具)引入类似浏览器的标签页,简化多文档导航。免费下载


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

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

  1. 通过按 Ctrl + A 选择整个文档。 提示: 如果只想转换特定范围内的域代码,请仅选择该部分而不是整个文档。
  2. Ctrl + Shift + F9 将所有域转换为其显示值。
    Field Codes converted to displayed values

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


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

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

Kutools for Word搭载 AI 🤖,提供超过 100 项实用功能,简化您的任务。
  • 如果想在特定范围内将域代码转换为文本,首先选择该范围,然后点击 Kutools > 转换 > 域转文本.
    Convert Field Codes to Text option on the Kutools tab on the ribbon
  • 如果要转换整个文档中的域代码,只需点击应用该功能即可,无需在文档中选择任何内容。 Kutools > 转换 > 域转文本 随后会弹出一个提示框要求确认。点击 继续操作。
    Convert Field Codes to Text dialog

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

Document with field codes >>> Document with field codes converted to text

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

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

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

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

  1. Alt + F11 打开 Microsoft Visual Basic for Applications 窗口。
  2. 点击 模块插入 选项卡中,然后复制并粘贴以下 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
  3. 点击 运行 按钮 Run button 或按 F5 执行 VBA。

注意:此 VBA 方法不适用于文档的选定部分;它适用于整个文档。

Office Tab:为 Word、Excel、PowerPoint 等带来选项卡式界面…
Navigate through documents using Office Tab

相关文章:


最佳Office办公效率工具

Kutools for Word - 用超过100项强大功能全面提升你的Word体验!

🤖 Kutools AI 功能AI助手 / 实时助手 / 超级润色(保留格式)/ 超级翻译(保留格式)/ AI遮挡 / AI校正……

📘 文档掌控分割页面 / 文档合并 / 区域导出为多种格式(PDF/TXT/DOC/HTML等)/ 批量转换为PDF……

正文编辑跨多个文件批量查找与替换 / 一键调整所有图片大小 / 翻转表格行列 / 表格转文本……

🧹 高效清理:一扫多余空格 / 分节符 / 文本框 / 超链接 / 想了解更多删除工具,请前往删除分组……

创意插入:插入千位区分符 /复选框 /选项按钮 / 二维码 / 条形码 / 批量插入图片 / 更多内容请见插入分组……

🔍 精准选取:快速定位指定页面 / 表格 / 形状 / 标题段落 / 利用更多 选择 功能提升导航体验……

实用增强跳转任意区域 / 自动插入重复文本 / 文档窗口间一键切换 /11 转换工具……

🌍 支持40多种语言:自由选择你喜欢的界面语言——Kutools支持英语、西班牙语、德语、法语、中文及其他40余种语言!

Kutools and Kutools Plus tabs on the Word Ribbon
👉 想立即体验这些功能?马上下载 Kutools for Word!🚀
 

✨ Kutools for Office – 一次安装,五大强力工具集成!

内含 Office Tab Pro · Kutools for Excel · Kutools for Outlook · Kutools for Word · Kutools for PowerPoint

📦 五大工具一站式集成 | 🔗 无缝兼容Microsoft Office | ⚡立即提升效率、节省时间

最佳Office办公效率工具

Kutools for Word - 100+ 项Word工具