Question

全部显示

应用于 Field、LinkFormat、MailMergeField 和 Subdocument 对象的 Locked 属性。

对于 Subdocument 对象：如果为 True，则主控文档中的子文档处于锁定状态。

对于 LinkFormat 对象：如果为 True，则 Field、InlineShape 或 Shape 对象处于锁定状态，以防止自动更新。如果将本属性应用于 Shape 对象，而该对象又是一张浮动链接的图片（用 Shapes 对象的 AddPicture 方法所添加的图片），就会产生错误。

对于 Field 或 MailMergeField 对象：如果为 True，则指定的域处于锁定状态。当一个域处于锁定状态时，就不能更新该域的结果。

Boolean 类型，可读写。

expression.Locked

expression 必需。该表达式返回上述对象之一。

应用于 Fields 对象的 Locked 属性。

如果为 True，则 Fields 集合中的所有域都处于锁定状态。可以是 True、False 或 wdUndefined（如果集合中只有部分域处于锁定状态）。Long 类型，可读写。

expression.Locked

expression 必需。该表达式返回一个 Fields 对象。

示例

当应用于 Subdocument 对象时。

本示例检查指定主控文档的第一篇子文档，如果子文档处于锁定状态，则只允许在主控文档中添加备注。

If ActiveDocument.Subdocuments(1).Locked = True Then
 ActiveDocument.Protect Type:=wdAllowOnlyComments
End If

当应用于 Fields 对象时。

本示例在所选内容的开始插入一个 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