Word) (Field.Code 属性

返回一个代表域代码的 Range 对象。 读/写。

语法

expression。 Code

表达 一个代表“Field”对象的变量。

备注

域代码是包含在域字符 ({ }) 中的所有内容，包括前导和尾部空格。 无需更改域结果的显示方式即可访问域代码。

示例

本示例显示活动文档中每一个域的域代码。

Dim fieldLoop As Field 
 
For Each fieldLoop In ActiveDocument.Fields 
 MsgBox Chr(34) & fieldLoop.Code.Text & Chr(34) 
Next fieldLoop

本示例将活动文档中第一个域的域代码改为 CREATEDATE。

Dim rngTemp As Range 
 
Set rngTemp = ActiveDocument.Fields(1).Code 
rngTemp.Text = " CREATEDATE " 
ActiveDocument.Fields(1).Update

本示例判断活动文档中是否包含一个名为"Title"的邮件合并域。

Dim fieldLoop As Field 
 
For Each fieldLoop In ActiveDocument.MailMerge.Fields 
 If InStr(1, fieldLoop.Code.Text, "Title", 1) Then 
 MsgBox "A Title merge field is in this document" 
 End If 
Next fieldLoop

另请参阅

Field 对象

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。