word commandbars成员遍历

Sub CommandBar_Id()


    Dim C As CommandBar, W As CommandBarControl, E As CommandBarControl
    On Error Resume Next
   For Each C In Application.CommandBars
   
     With Selection
      .TypeText C.Index & vbTab & C.Name
      .Style = ActiveDocument.Styles("H1")
      .TypeParagraph
        End With
     For Each W In C.Controls
      Selection.TypeText "+++" & W.Index & vbTab & vbTab & W.Caption & vbTab & vbTab & W.ID & vbTab
       Selection.TypeParagraph
        For Each E In W.Controls
          Selection.TypeText "+++++++++++" & E.Index & vbTab & vbTab & E.Caption & vbTab & vbTab & E.ID & vbTab
          Selection.TypeParagraph
        Next
     Next
   Next
End Sub

word2019运行的的 结果如下链接：

https://download.csdn.net/download/hegang416/13145923