Code 属性

返回一个 Range 对象，该对象代表一个域代码。域代码是包含在域字符 ({ }) 中的所有字符，包括前端和末端的空格。不需更改域结果的显示方式即可访问一个域代码。可读写。

示例

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

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