2024年4月16日发(作者：)

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

如何将 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:，并将修订视图模式设置

为 Final：

Const wdRevisionsViewFinal = 0

Set objWord = CreateObject("ation")

Set objDoc = ("c:")

Set objView =

onsView = wdRevisionsViewFinal

visionsAndComments = False

e = True

正如您所看到的，该脚本不是很长，而且也不太复杂，只是有点棘手。首先，我们定

义了一个名为 wdRevisionsViewFinal 的常量，并将其值设置为 0。不用说，我们将使用

此常量指出应将 RevisionsView 属性设置为 Final 还是 Final Showing Markup。（别担

心，我们将解释如何得到一个值或另一个值。）如果我们要将 RevisionsView 设置为

Original 或 Original Showing Markup，该怎么办呢？在此情况下，我们需要定义一个

名为 wdRevisionsViewOriginal 的常量，并将其值设置为 1：

Const wdRevisionsViewOriginal = 1

接下来，我们创建了 ation 对象的一个实例，然后使用 Open 方法打

开文件 C:。然后，我们使用下面的这行代码为此文档创建一个指向 View

对象的对象引用：

Set objView =

现在我们需要做两件事。首先将 RevisionsView 属性值设置为 0（使用常量

wdRevisionsViewFinal）。将 RevisionsView 设置为 0 可得到 Final Showing Markup

修订视图模式；将 RevisionsView 设置为 1 可得到 Original Showing Markup 视图模

式。

您会说，“等等，我们不需要 Final Showing Markup，只需要原来普通的 Final”。

知道了。为了获得该模式，首先须得配置 RevisionsView 属性，然后还需要将

ShowRevisionsAndComments 属性设置为 False：

visionsAndComments = False

这样就大功告成了。配置完 RevisionsView 和 ShowRevisionsAndComments 后，

将 Visible 属性设置为 True：这样便使 可见，我们也会看到修订视图模式已设

置为 Final。

感到迷惑吗？别灰心，我们最初也有些迷惑。不过，这个小表格可能会有所帮助，它

显示了每个视图模式所需的设置：视图模式

RevisionsView

ShowRevisionsAndCommentsFinal

0

FalseFinalShowingMarkup

0

TrueOriginal

1

FalseOriginalShowingMarkup

1

True