如何以编程方式检查Word文档vbscript的保护

发布于 2024-12-04 18:26:11 字数 381 浏览 0 评论 0原文

我正在使用 vbscript 以编程方式运行 word 文档列表，打开每个文档，修改它，然后使用 ms word 2010 保存它。我的问题是列表中存在受保护和未受保护的文档。当我到达受保护的文档时，出现此错误：此方法或属性不可用，因为该对象引用了文档的受保护区域。

所以我做了一些研究，在ms网站上找到了这段代码：

If objDoc.ProtectionType <> wdNoProtection Then
                objDoc.Unprotect
End if

现在问题是一个新错误：取消保护方法或属性不可用，因为文档已经不受保护。当您知道列表中都会有文档时，是否有另一种方法来检查文档是否受保护或不受保护，以避免错误？

原文

I'm using a vbscript to programmatically run through a list of word documents, open each one, modify it, then save it using ms word 2010. My problem is there are protected and unprotected documents in the list. When I reach a protected document, I get this error: This method or property is not available because the object refers to a protected area of the document.

So I did some research and found this code on the ms website:

If objDoc.ProtectionType <> wdNoProtection Then
                objDoc.Unprotect
End if

Now the problem is a new error: The unprotect method or property is not available because the document is already unprotected. Is there a another way to check if the document is protected or unprotected, when you know there will be both in the list, to avoid the errors?

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

与往事干杯 2024-12-11 18:26:11

如果您使用 VBScript 自动化 MS Office 应用程序（并使用 VBA 示例代码作为起点），您可能会忽略定义 wd*、xl* 或 ad(?)* 常量的必要性，这些常量是在 VBA 中预定义的，但在VBScript。使用文档和/或调试输出将以下行添加

Const wdNoProtection = <correct value>

到脚本中。

如果您使用 Option Explicit 启动脚本，并且完全避免邪恶的全局 On Error Resume Next 或至少在程序经过测试之前禁用它，您将不会错过任何这些野兽。

更好的方法是将脚本编写为 .wsf 文件。标记“包含”定义（因此您不能因为错误的 Const 行而受到指责）。

POC/演示代码：

<?xml version="1.0" standalone="yes" encoding="iso-8859-1" ?>
<package>
 <job id="QEC">
  <reference object="Excel.Sheet" reference="true"/>
  <script language="VBScript">
   <![CDATA[
' ############################################################################
  a = inputbox ( "Name of an Excel Constant?" )
  msgbox a & " = " & eval(a)
' ############################################################################
   ]]>
  </script>
 </job>
</package>

If you automate MS Office applications using VBScript (and use VBA sample code as a starting point), you may overlook the necessity of defining the wd*, xl*, or ad(?)* constants that are predefined in VBA, but missing in VBScript. Use the Docs and/or Debug output to add lines like:

Const wdNoProtection = <correct value>

to your script.

If you start your script with Option Explicit and either avoid the evil global On Error Resume Next entirely or at least disable it until the program is tested, you won't miss any of these beasts.

An even better approach is to write your script as a .wsf file. The <reference> tag 'includes' the definitions (so you can't be blamed for an incorrect Const line).

POC/Demo code:

<?xml version="1.0" standalone="yes" encoding="iso-8859-1" ?>
<package>
 <job id="QEC">
  <reference object="Excel.Sheet" reference="true"/>
  <script language="VBScript">
   <![CDATA[
' ############################################################################
  a = inputbox ( "Name of an Excel Constant?" )
  msgbox a & " = " & eval(a)
' ############################################################################
   ]]>
  </script>
 </job>
</package>

回复收藏 0 原文

~没有更多了~