CalculateOnExit 属性

如果退出指定的窗体域时自动更新对该域的引用，则本属性为 True。Boolean 类型，可读写。

说明

一个 REF 域可用来引用窗体域中的内容。例如，{REF SubTotal} 引用由 SubTotal 书签标识的窗体域。

示例

本示例实现的功能是：在退出 Form.doc 中的窗体域时可以自动更新对该域的引用。

Dim ffLoop As FormField

For Each ffLoop In Documents("Form.doc").FormFields
    ffLoop.CalculateOnExit = False
Next ffLoop

本示例在新文档中添加一个文字型窗体域和一个 REF 域。每次键入文字时并退出 Text1 域时，都将自动更新 REF 域。

With Documents.Add
    .FormFields.Add Range:=Selection.Range, _
        Type:=wdFieldFormTextInput
    .Fields.Add Range:=Selection.Range, _
        Type:=wdFieldRef, Text:="Text1"
    .FormFields("Text1").CalculateOnExit = True
    .Protect Type:=wdAllowOnlyFormFields
End With