求可同时关闭Microsoft Word右侧Styles窗格与SmartCite插件窗格的宏

问题原因 #

你之前的代码触发错误，是因为Styles窗格属于Word任务窗格（TaskPane），而非CommandBar，直接用CommandBars相关方法调用会导致参数无效的报错。

有效宏代码 #

以下宏可同时关闭这两个窗格：

Sub CloseStylesAndSmartCitePanes()
    ' 关闭Styles任务窗格
    Dim tp As TaskPane
    For Each tp In Application.TaskPanes
        If tp.Type = wdTaskPaneStyles Then
            tp.Visible = False
            Exit For
        End If
    Next tp
    
    ' 关闭SmartCite插件窗格
    On Error Resume Next ' 避免窗格未打开时触发报错
    Application.CommandBars("SmartCite").Visible = False
    On Error GoTo 0
End Sub

代码说明 #

• Styles窗格处理：通过遍历TaskPanes集合，匹配内置的wdTaskPaneStyles类型关闭，这是最可靠的方式，不会因语言版本、自定义名称差异失效。
• SmartCite窗格处理：插件窗格通常归属于CommandBar，通过名称匹配关闭；加入错误处理逻辑，防止窗格未打开时触发额外报错。

使用步骤 #

1. 打开Word，按下Alt + F11打开VBA编辑器
2. 右键点击左侧项目浏览器中的目标文档，选择「插入」→「模块」
3. 将上述代码粘贴到模块中
4. 按下F5运行宏，或返回Word后通过「开发工具」→「宏」选择运行

内容的提问来源于stack exchange，提问作者luciano