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