本示例在所选内容的开始插入一个 DATE 域,然后锁定该域。

Selection.Collapse Direction:=wpsCollapseStart
Set myField = ActiveDocument.Fields.Add(Range:=Selection.Range, _
    Type:=wpsFieldDate)
myField.Locked = True

 

如果活动文档中的部分域处于锁定状态,则本示例将显示一条消息。

Set theFields = ActiveDocument.Fields
If theFields.Locked = wpsUndefined Then
    MsgBox "Some fields are locked"
ElseIf theFields.Locked = False Then
    MsgBox "No fields are locked"
ElseIf theFields.Locked = True Then
    MsgBox "All fields are locked"
End If