应用于 Field、LinkFormat、MailMergeField 和 Subdocument 对象的 Locked 属性。
对于 Subdocument 对象:如果为 True,则主控文档中的子文档处于锁定状态。
对于 LinkFormat 对象:如果为 True,则 Field、InlineShape 或 Shape 对象处于锁定状态,以防止自动更新。如果将本属性应用于 Shape 对象,而该对象又是一张浮动链接的图片(用 Shapes 对象的 AddPicture 方法所添加的图片),就会产生错误。
对于 Field 或 MailMergeField 对象:如果为 True,则指定的域处于锁定状态。当一个域处于锁定状态时,就不能更新该域的结果。
Boolean 类型,可读写。
expression.Locked
expression 必需。该表达式返回上述对象之一。
如果为 True,则 Fields 集合中的所有域都处于锁定状态。可以是 True、False 或 wdUndefined(如果集合中只有部分域处于锁定状态)。Long 类型,可读写。
expression.Locked
expression 必需。该表达式返回一个 Fields 对象。
本示例检查指定主控文档的第一篇子文档,如果子文档处于锁定状态,则只允许在主控文档中添加备注。
If ActiveDocument.Subdocuments(1).Locked = True Then
ActiveDocument.Protect Type:=wdAllowOnlyComments
End If
本示例在所选内容的开始插入一个 DATE 域,然后锁定该域。
Selection.Collapse Direction:=wdCollapseStart
Set myField = ActiveDocument.Fields.Add(Range:=Selection.Range, _
Type:=wdFieldDate)
myField.Locked = True
本示例锁定所选内容中的所有域。
Selection.Fields.Locked = True
如果活动文档中的部分域处于锁定状态,则本示例将显示一条消息。
Set theFields = ActiveDocument.Fields
If theFields.Locked = wdUndefined 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