Commandbarpopup error in Word VBA

[OughtFour]

I use the following routine to test each menu and toobar control, visible or
not:

Private Sub EnableMenuette(vControl As Variant, vName As String, IsADoc As
Boolean)
'Does heavy lifting for EnableMenuItem, recursively
Dim thang As Variant
For Each thang In vControl.Controls
If thang.Caption = vName Then
thang.Enabled = IsADoc
ElseIf thang.Type = msoControlPopup Then
'i.e., if thang is itself a menu,
EnableMenuette thang, vName, IsADoc
End If
Next thang
End Sub

It uses recursion to get at sub menus. It is called by a routine that
includes these lines

For Each menu In CommandBars
EnableMenuette menu, vName, IsADoc
Next menu

(What I am doing is checking for the presence of particular toolbar button
and menu item vName, which may be anywhere and in more than one place due to
user customization.)

This works fine in Word 97 for Windows, but fails in Word X. The error
message says

Run-time error '-2147483640 (800000080)':
Method 'Controls' of object 'CommandBarPopup' failed.

Execution halts at
For Each thang In vControl.Controls

It seems to be hung up when it reaches the Toolbars submenu on the View
menu.

I surmise that the problem lies in applying the Controls method.

I feel baffled by this. I thought I understood the CommandBars collection
well enought to do this but apparently I do not.

But, why does it work in Word 97?

Grateful for any help at all, thanks.

 

[Beth Rosengard]

Hi "Ought",

Apparently no one here has an answer for you. I suggest you post to
microsoft.public.word.vba.general and ask there. Let them know that you're
on a Mac and that Word Mac's VBA is v5.0.

Hope this helps.

--
Beth Rosengard
Mac MVP

Mac Word FAQ: <http://www.mvps.org/word/FAQs/WordMac/index.html>
Entourage Help Page: <http://www.entourage.mvps.org/toc.html>

 

[Klaus Linke]

It seems to be hung up when it reaches the Toolbars submenu on the

View menu.

Perhaps you could code around it:

If vControl.ID <> 30045 Then ' 30045 being the ID of "View > Toolbars"
For Each thang In vControl.Controls
' rest of Sub EnableMenuette
' ...
End If

(You could also use vControl.Caption, but I'm not quite sure about its
Caption in English)

Regards,
Klaus

 

[OughtFour]

Perhaps you could code around it:

If vControl.ID <> 30045 Then ' 30045 being the ID of "View > Toolbars"
For Each thang In vControl.Controls
' rest of Sub EnableMenuette
' ...
End If

Thanks, Klaus.

The error seems confined to "View > Toolbars."

I'd still like to understand what is wrong with the original code, but
this is a fine workaround.