如何使用VBScript锁定Office 16版Word文档的特定区域？

要实现Word文档特定部分只读，核心思路是通过可编辑区域标记或节保护，结合文档保护功能实现。以下是两种常用场景的示例代码：

场景1：锁定指定节（其余节可编辑） #

适用于按节划分内容的文档，比如锁定第2节，允许编辑其他节：

Set objWord = CreateObject("Word.Application")
objWord.Visible = True ' 可设为False后台执行
Set objDoc = objWord.Documents.Open("C:\Path\To\Your\Document.docx")

' 解除文档现有保护（如果已存在）
If objDoc.ProtectionType <> -1 Then ' wdNoProtection = -1
    objDoc.Unprotect "your_existing_password"
End If

' 遍历所有节，设置锁定状态
For Each objSection In objDoc.Sections
    ' 锁定第2节（节索引从1开始）
    If objSection.Index = 2 Then
        objSection.ProtectedForForms = True
    Else
        objSection.ProtectedForForms = False
    End If
Next

' 应用窗体保护（仅允许编辑未锁定的节）
objDoc.Protect 2, True, "new_protection_password" ' wdAllowOnlyFormFields = 2

' 保存并关闭
objDoc.Save
objDoc.Close
objWord.Quit

场景2：锁定指定段落/范围（其余内容可编辑） #

适用于需要锁定任意连续内容的场景，比如锁定前3段，允许编辑剩余内容：

Set objWord = CreateObject("Word.Application")
objWord.Visible = True
Set objDoc = objWord.Documents.Open("C:\Path\To\Your\Document.docx")

' 解除现有保护
If objDoc.ProtectionType <> -1 Then
    objDoc.Unprotect "your_existing_password"
End If

' 标记可编辑区域：第4段到文档末尾
Set editRange = objDoc.Range(objDoc.Paragraphs(4).Range.Start, objDoc.Content.End)
objDoc.Editors.Add 5, editRange ' wdEditorEveryone = 5，允许所有人编辑该区域

' 应用文档保护，仅允许编辑标记的区域
objDoc.Protect 3, True, "new_protection_password" ' wdAllowOnlyEditing = 3

objDoc.Save
objDoc.Close
objWord.Quit

关键说明 #

• 常量替代：VBScript不内置Word常量，直接使用对应数值：
  • wdNoProtection = -1（无保护）
  • wdAllowOnlyFormFields = 2（仅允许编辑窗体域/未锁定节）
  • wdAllowOnlyEditing = 3（仅允许编辑标记的可编辑区域）
  • wdEditorEveryone = 5（允许所有人编辑该区域）
• 若需指定特定用户/组编辑可编辑区域，可替换5为其他编辑器常量值（如1代表文档所有者）
• 执行前确保文档未被其他程序占用

内容的提问来源于stack exchange，提问作者BigDuckPlaya