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