Word VBA教程:Locked属性

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

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

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

对于FieldMailMergeField对象:如果为 True,则指定的域处于锁定状态。当一个域处于锁定状态时,就不能更新该域的结果。

Boolean 类型,可读写。

expression.Locked

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

应用于 Fields对象的 Locked属性。

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

expression.Locked

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

VBA示例

当应用于 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

Word VBA教程

Word VBA参考教程:目录1 Word VBA参考教程:目录2
Word VBA参考教程:目录3 Word VBA参考教程:目录4
Word VBA参考教程:目录5 Word VBA参考教程:目录6
Word VBA参考教程:目录7 Word VBA参考教程:目录8
Word VBA参考教程:目录9 Word VBA参考教程:目录10
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号