使用VBScript控制Microsoft Word选项

Question

我编译了2个VBScript .vbs文件，试图控制Microsoft Word中的智能引号（也称为曲线引号）的使用。我正在尝试使用VBScript来承担Microsoft Word功能。

我想要的结果如下所示：在打开Microsoft Word文档的同时，我希望能够打开其中一个.vbs文件，以立即生效，并且相反地能够打开其他.vbs文件立即关闭智能报价。

不幸的是，在打开Microsoft word文档的同时，双击适当的.vbs文件运行这些脚本似乎没有任何效果。 但是，如果我打开（通过双击）其中一个.vbs文件，同时关闭Microsoft单词，然后打开Microsoft单词，则智能引号设置将反映.vbs文件中的脚本。 我已经从下面的.vbs文件复制了脚本。在每一个代码中都有一行垃圾代码，正如我之前说过的，我一直在试验。 如何修改脚本以达到上述结果？ 任何援助非常感谢。 Stuartzz

脚本（在.vbs文件），用于车削智能引号关闭：

On Error Resume Next 
Set objWord = CreateObject("Word.Application") 
'objWord.Visible = True 
Set objOptions = objWord.Options 
objOptions.AutoFormatAsYouTypeReplaceQuotes = False 
objOptions.AutoFormatReplaceQuotes = False 
ObjWord.Quit 

脚本（在.vbs文件）用于打开智能引号：

On Error Resume Next 
Set objWord = CreateObject("Word.Application") 
'objWord.Visible = True 
Set objOptions = objWord.Options 
objOptions.AutoFormatAsYouTypeReplaceQuotes = True 
objOptions.AutoFormatReplaceQuotes = True 
ObjWord.Quit 

的VBScript 5.8版本.7601.16978 .net framework版本v4.0.30319 Windows 7 Ultimate Service Pack 1 64位操作系统 Microsoft Office Professional Plus 2010 Microsoft Word 14.0.5128.5000（64位）

Answer 1

使用CreateObject将启动Word应用程序的新实例。它不会影响当前正在运行的一个。要获得当前正在运行的实例，您需要使用GetObject。

所以，与其这样：

Set objWord = CreateObject("Word.Application") 

使用此抢词的第一个实例：

Set objWord = GetObject(, "Word.Application") 

所有这样说，如果你使用VBA编写的宏，它会始终在当前打开的文件中运行。您甚至可以应用工具栏按钮以更轻松地访问。