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
有关于 Office VBA 或本文档的疑问或反馈? 请参阅 Office VBA 支持和反馈,获取有关如何接收支持和提供反馈的指南。