Control ID til submenu items i Office 2003
Jeg skal ha' disabled nogle valgmuligheder i Word 2003. Til brug for det skal jeg kende ID'et på det pågældende menupunkt.Nedenstående procedure giver mig alle ID'er for hovedmenuens punkter:
Sub EnumerateControls()
Dim icbc As Integer
Dim cbcs As CommandBarControls
'Set cbcs = Application.CommandBars("Menu Bar").Controls("Funktioner").Controls
Set cbcs = Application.CommandBars("Menu Bar").Controls("Funktioner").Controls
For icbc = 1 To cbcs.Count
MsgBox cbcs(icbc).Caption & " = " & cbcs(icbc).ID
Next icbc
End Sub
Under funktioner findes menupunktet Indstillinger. Hvorledes får jeg kørt samme kommando, som giver mig ID'erne på alle de meneuer, der er under Indstillinger?
