Word VBA教程:Code属性

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

VBA示例

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


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

Word VBA教程

Word VBA参考教程:目录1 Word VBA参考教程:目录2
Word VBA参考教程:目录3 Word VBA参考教程:目录4
Word VBA参考教程:目录5 Word VBA参考教程:目录6
Word VBA参考教程:目录7 Word VBA参考教程:目录8
Word VBA参考教程:目录9 Word VBA参考教程:目录10
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号