如何在Word VBA中用SendKeys调用功能区加速命令移除目录

问题背景 #

通过UI插入的目录会被包裹在未命名的Content Control容器中，「移除目录」命令会连带删除这个容器及其中的TOC域，但Word的VBA对象模型没有直接对应这个操作的方法。尝试用WordBasic.SendKeys "%S%"或SendKeys "%S%"触发快捷键Alt, S, T, R时，仅能激活功能区快捷键提示，无法切换到「引用」选项卡，且经常无响应。

可行解决方案 #

方案1：直接调用功能区命令ID（推荐）

使用CommandBars.ExecuteMso方法直接触发「移除目录」的功能区命令，这个方法比SendKeys更稳定，无需依赖UI焦点状态：

Application.CommandBars.ExecuteMso "TableOfContentsRemove"

该命令会完整执行UI中的「移除目录」操作，自动删除包裹TOC域的未命名Content Control及目录内容。

方案2：手动遍历并删除目标Content Control

如果需要更精准的控制（比如只删除特定位置的目录控件），可以遍历文档中的Content Control，定位包含TOC域的未命名控件并删除：

Dim cc As ContentControl
Dim fld As Field

For Each cc In ActiveDocument.ContentControls
    ' 筛选未命名且包含域的Content Control
    If cc.Title = "" And cc.Range.Fields.Count > 0 Then
        For Each fld In cc.Range.Fields
            ' 判断是否为TOC域
            If fld.Type = wdFieldTOC Then
                cc.Delete ' 删除控件及其中的目录
                Exit For ' 找到目标后退出循环
            End If
        Next fld
    End If
Next cc

补充说明 #

• ExecuteMso是调用Word功能区命令的通用方式，大部分没有直接对象模型映射的功能区操作都可以通过这种方式实现，避免了SendKeys的不稳定问题。
• 若不确定功能区命令的ID，可以通过Office的「自定义功能区」界面查看，或借助VBA遍历CommandBars集合查询。

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