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

问题描述

我目前正在编写一些用于 Word 的可视化基本脚本 (.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”没有按预期工作——返回值始终为真，无论标题是否受保护或不。注意：Tosca 并没有在这里惹麻烦，因为我有其他几个类似的潜艇，而且它们都运行良好。

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）

ms-word vbscript vbscript