Vbscript .vbs:Word中页眉/页脚的写保护

我目前正在为word编写一些visual basic脚本（.vbs）。我需要确定页眉/页脚是否受写保护。我使用了以下代码片段：

Sub main(testAction)

Dim doc 'As Word.Document
Dim paAction 'As Engine.clsParamAction
Dim sAction 'As String
Dim paDocument 'As Engine.clsParamAction
Dim sDocumentName 'As String
Dim paValue 'As Engine.clsParamAction

Set paDocument = testAction.paramAction("Document Name", True)
If paDocument Is Nothing Then
    sDocumentName = "#1"
else
    sDocumentName = paDocument.inputView.Value
End If
Set doc = WaitForDocument(sDocumentName , lTimeout)

Set paAction = testAction.paramAction("Action", True)   
sAction = paAction.inputView.value

Set paValue = testAction.paramAction("Value", True)  
select case (lcase(sAction))
    case "headersectionisprotected":
        paValue.actValue = doc.Sections(1).Headers(2).Range.Sections.Item(1).ProtectedForForms
        paValue.HandleActValue
        Exit Sub    
end select
End Sub

子程序通过Tricentis Tosca调用-很抱歉，我无法给出一个可复制的“独立”示例：

显然，“doc.Sections（1）.Headers（2）.Range.Sections.Item（1）.ProtectedForForms”命令没有按预期工作-返回值始终为true，无论头是否受保护。

---

注意：托斯卡并没有在这里制造麻烦，因为我还有其他几个这样集成的潜艇，它们都工作得很好。

你是说VBScript还是VBA？这不一样，你的问题也不清楚。也请看。试着去改进你的问题，这些问题可以根据你的回答。注意，像“但是我得到了一个错误”这样的东西对于阅读问题的人来说是非常无用的，因为我们需要知道你到底得到了哪条错误消息以及在哪一行。请尝试提供“返回代码始终为

true

”哪个返回代码为true？如何调用sub

main

？什么是

测试操作

？因为您显示的代码不是，所以您可能需要对该代码进行更多解释。当你问“命令有什么问题？”我的第一个问题是你指的是哪个命令？很抱歉，我不能给出一个可复制的“独立”示例为什么不能？我看不出你为什么不能做一个独立的例子来解决这个问题。既然您似乎确信它不是由第三方工具引起的，那么当直接在VBA中调用时，问题应该就在那里，不是吗？