您好，SB。 脚本专家中总是有一些人怀有终身的恐惧，害怕自己将写出最伟大的作品，而没人会知道或在意这部作品。 当然一直到死去，他都是默默无闻。 他死后，这部作品将被发现，直冲畅销书榜首，而脚本专家的继承人将变得富有。

注意。 为避免发生这种事情，这位脚本专家已发誓永远不写优秀的作品。 迄今为止，他正努力保持着承诺而从未出现任何问题。

同样，对于用于管理 Microsoft Office 的脚本，这位脚本专家有类似的恐惧。 实际上，“脚本中心”的“Office 脚本编写”（英文）中心已提供了许多用于介绍如何执行管理任务（如更改文件位置）的脚本。 但似乎很少有人使用这些脚本，而是仍有众多读者咨询编写管理 Microsoft Office 的脚本的方法。 这就像阁楼中未被发现的伟大作品： 如果这位脚本专家出了事，他的继承者将继承所有这些脚本。 但愿不会如此！

这就是在回答您的问题前决定举个小小例子的原因。 如果您正在找寻用于执行 Microsoft Office 的管理任务的脚本，一定要到 Office 脚本编写（英文）中心看看。 如果您看到有个 15 岁的小孩正在那儿找东西，请提醒他一下，他的脚本父亲还很健康，至少能再活 100 年。 甚至更长。

至于更改“用户模板”和“工作组模板”的文件位置，以下这个脚本完全能够做到:

Const wdUserTemplatesPath = 2

Const wdWorkgroupTemplatesPath = 3



Set objWord = CreateObject("Word.Application")

Set objOptions = objWord.Options



objOptions.DefaultFilePath(wdUserTemplatesPath) = "C:/Templates"

objOptions.DefaultFilePath(wdWorkgroupTemplatesPath) = "C:/Workgroup/Templates"



objWord.Quit

我们首先定义一对常量 – wdUserTemplatesPath 和 wdWorkgroupTemplatesPath，将用这两个常量来表示要更改的文件位置。 还可通过脚本更改许多其他文件位置，有关完整列表（以及常量和各自的相关值），请参阅 MSDN 上 Microsoft Word VBA Language Reference（英文）的 wdDefaultFilePath enumeration（英文）。

接下来创建 Word.Application 对象及其子对象 Options 的一个实例。 您可能注意到与大多数示例脚本不同的是，在此脚本中我们没有将 Visible 属性设置为 True。 这是因为我们不想在屏幕上显示 Word，而是希望在隐藏的窗口中打开 Word，执行更改，然后关闭 Word，这样谁也看不到发生了什么事情。

要更改文件路径，我们所要做的只是更改 DefaultFilePath 属性的值，一定要使用我们定义的常量之一指示要更改的那个文件路径。 例如，要将“用户模板”路径更改为 C:/Templates，请使用以下这行代码：

objOptions.DefaultFilePath(wdUserTemplatesPath) = "C:/Templates"

要将“工作组模板”路径更改为 C:/Workgroup/Templates，使用以下这行代码：

objOptions.DefaultFilePath(wdWorkgroupTemplatesPath) = "C:/Workgroup/Templates"

这就是我们必须做的全部内容，甚至不必调用任何一种 Save 函数。 我们更改文件位置，然后使用 Quit 方法关闭 Word。 （如果我们不关闭 Word，将继续在后台运行 Word 实例，而我们却看不见。）

现在大家都了解了用于管理 Microsoft Office 的脚本，我们要做的另外一件事情就是： 背靠摇椅，等待名誉和财富滚滚而来。