如何将 Word 的修订视图模式设置为 Final？

问：
您好，脚本专家！在 Microsoft Word 2003 中，我的文档是以 Final Showing Markup 方式打开的。如何对此进行更改以使默认视图为 Final？
-- CD
答：
您好，CD。巧了，这是我们在感恩节过后编写的第一个“您好，脚本专家！”专栏。吃饭、橄榄球、吃饭、篮球，然后再吃一点（噢，对，是再吃许多），经历了四个这样的日子后，我们认为明智的做法是挑一个真正容易的问题来回答，这样有助于我们重新找回工作感觉。要是我们真的挑选了一个容易的问题，那该有多好。可是，我们却选择了您提出的问题。
我们很快就发现，这比我们原来预想和希望的要棘手一些。一则我们无法使 Final 成为全局默认值，也就是说，无法对 Word 进行配置以使所有文档打开时的修订视图模式都设置为 Final。相反，似乎必须得对每个文档分别配置修订视图。因此，我们提供给您的是这样一个脚本，它会打开某个特定文档，然后设置该文档的修订视图模式。这并不完全是您要寻找的答案，但这就是我们所能做的一切。
再则，Word 中的 RevisionsView 属性实际上只有两种设置：Final Showing Markup 和 Original Showing Markup。这没什么关系，只不过 Word 本身却有四种这样的设置：Final Showing Markup、Original Showing Markup、Original 以及您所需要的 Final。这是否把我们搞得晕头转向了？您还有必要发问吗？
幸运的是，脚本专家们已经多次被搞得晕头转向了，这样的事情不会再难住我们了。尽管围绕 Microsoft Word 对象模型进行了少许试验和摸索，但最终我们还是提出了解决方案。例如，下面的这个脚本可以打开文档 C:\Scripts\Test.doc，并将修订视图模式设置为 Final：
Const wdRevisionsViewFinal = 0Set objWord = CreateObject("Word.Application")Set objDoc = objWord.Documents.Open("c:\scripts\test.doc")Set objView = objWord.ActiveDocument.ActiveWindow.ViewobjView.RevisionsView = wdRevisionsViewFinalobjView.ShowRevisionsAndComments = FalseobjWord.Visible = True
正如您所看到的，该脚本不是很长，而且也不太复杂，只是有点棘手。首先，我们定义了一个名为 wdRevisionsViewFinal 的常量，并将其值设置为 0。不用说，我们将使用此常量指出应将 RevisionsView 属性设置为 Final 还是 Final Showing Markup。（别担心，我们将解释如何得到一个值或另一个值。）如果我们要将 RevisionsView 设置为 Original 或 Original Showing Markup，该怎么办呢？在此情况下，我们需要定义一个名为 wdRevisionsViewOriginal 的常量，并将其值设置为 1：
Const wdRevisionsViewOriginal = 1
接下来，我们创建了 Word.Application 对象的一个实例，然后使用 Open 方法打开文件 C:\Scripts\Test.doc。然后，我们使用下面的这行代码为此文档创建一个指向 View 对象的对象引用：
Set objView = objWord.ActiveDocument.ActiveWindow.View
现在我们需要做两件事。首先将 RevisionsView 属性值设置为 0（使用常量 wdRevisionsViewFinal）。将 RevisionsView 设置为 0 可得到 Final Showing Markup 修订视图模式；将 RevisionsView 设置为 1 可得到 Original Showing Markup 视图模式。
您会说，“等等，我们不需要 Final Showing Markup，只需要原来普通的 Final”。知道了。为了获得该模式，首先须得配置 RevisionsView 属性，然后还需要将 ShowRevisionsAndComments 属性设置为 False：
objView.ShowRevisionsAndComments = False
这样就大功告成了。配置完 RevisionsView 和 ShowRevisionsAndComments 后，将 Visible 属性设置为 True：这样便使 Test.doc 可见，我们也会看到修订视图模式已设置为 Final。
感到迷惑吗？别灰心，我们最初也有些迷惑。不过，这个小表格可能会有所帮助，它显示了每个视图模式所需的设置：
视图模式
RevisionsView
ShowRevisionsAndComments
Final
0
False
FinalShowingMarkup
0
True
Original
1
False
OriginalShowingMarkup
1
True
只要对其稍加玩味，您很快便会明白。
注意：明年的感恩节我们一定要挑一个稍微容易的问题来回答。实际上，针对像您这样喜欢利用假日提高自己的人，这里特意提供了 2006 感恩节专栏：
您好，脚本专家！如何使用 WSH 显示消息框？
-- GS
您好，GS。做法如下：
Wscript.Echo "This is my message box."
要是今年我们挑选了这个问题就好了…