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

For i = 1 To ActiveDocument.Fields.Count
    MsgBox Chr(34) & ActiveDocument.Fields(i).Code.Text & Chr(34)
Next

 

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

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