运行excel或word之外的application.commandbars（）

我试图找出一种方法来运行一个简单的VBA代码行：

application.commandbars("research").enabled = false 

不用打开excel或word（我想把这行代码同时用于excel和word）

我正在考虑在vbs中创build一个word / excel对象，但想不到在对象的相同上下文中使用这一行代码的方法。

Answer 1

你应该能够在VBScript代码中获得应用程序的现有实例，如下所示：

 Dim excelObj Set excelObj = GetObject(, "Excel.Application") 

然后可以调用该对象的任何应用程序方法：

 excelObj.CommandBars("research").Enabled = False 

对于Word，请按照上述步骤操作，但使用“Word.Application”。

注意：如果当前没有应用程序的实例在运行， GetObject将会抛出一个错误。 在这种情况下，使用CreateObject来代替，使用相同的参数。