word commandbars成员遍历

word commandbars成员遍历

word commandbars成员遍历

Sub CommandBar_Id()Dim C As CommandBar, W As CommandBarControl, E As CommandBarControlOn Error Resume NextFor Each C In Application.CommandBarsWith Selection.TypeText C.Index & vbTab & C.Name.Style = ActiveDocument.Styles("H1").TypeParagraphEnd WithFor Each W In C.ControlsSelection.TypeText "+++" & W.Index & vbTab & vbTab & W.Caption & vbTab & vbTab & W.ID & vbTabSelection.TypeParagraphFor Each E In W.ControlsSelection.TypeText "+++++++++++" & E.Index & vbTab & vbTab & E.Caption & vbTab & vbTab & E.ID & vbTabSelection.TypeParagraphNextNextNext
End Sub

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