Add button to docked toolbar on Word document open

Aaaargh!

This has been infuriating for me, because nothing seems to be consistent.

Apparently the position and visibility of that toolbar had gotten into my Normal.dot, so none of my changes were showing. I've renamed my Normal.dot out of the way to prevent that.

Now I'm trying all kinds of stuff as hybrids of your suggestions, but every time I get my toolbar to appear at either the top or bottom of the screen, my menu bar disappears!

This is my current code. Note that I've tried to set the RowIndex in two places, and it doesn't seem to make the difference. Also, I've set the position to msoBarTop. This causes the same problem with the position set to msoBarBottom, msoBarLeft, or msoBarRight.

I've also tried variations where I didn't set the RowIndex, with the same luck. Every time I've been able to get my toolbar to appear docked, the menu bar disappears.

I can get the toolbar to appear as a floater, and drag it up. But that's not doing it for me.

Any ideas?

==== BEGIN PASTE ====
Sub AutoNew()

Dim myBar As CommandBar
Dim myControl As CommandBarButton
Dim cmd As CommandBar

Dim intMenuRow as Integer

For Each cmd In CommandBars
   If cmd.Name = "Menu Bar" Then intMenuRow = cmd.RowIndex
Next  
 
For Each cmd In CommandBars
   If cmd.name = "BarryToolbar" Then
       CommandBars("BarryToolbar").Visible = True
       cmd.RowIndex = intMenuRow + 1
       Exit Sub
   End If
Next

Set myBar = CommandBars.Add( _
       name:="BarryToolbar", _
       Position:=msoBarTop, _
       menubar:=True, _
       Temporary:=True)

myBar.RowIndex = intMenuRow + 1

Set myControl = CommandBars("BarryToolbar").Controls.Add( _
       Type:=msoControlButton, _
       Before:=1)

With myControl
   .OnAction = "SubroutineToCall"
   .FaceId = 0
   .Caption = "Perform Barry's Action"
   .TooltipText = "Click the button to perform Barry's action"
   .DescriptionText = "PerformBarry'sAction"
   .Style = msoButtonCaption
End With

CommandBars("BarryToolbar").Visible = True

End Sub
===== END PASTE =====

-- b.r.t.

By the way, it's Office 2000.

And, yes, I've tried setting
CommandBars("Menu Bar").Visible = True
without any luck.

if you loop through the code you'll see that introw is filled as 1 because it never encounters the "Menu Bar"

still looking tho

But it does!
I've also tried it with a msgbox in there, as such:

==== BEGIN PASTE ====
For Each cmd In CommandBars
  If cmd.Name = "Menu Bar" Then
    intMenuRow = cmd.RowIndex
    Msgbox cmd.Name
  End If
Next
===== END PASTE =====

I'm getting that messagebox, so it is finding it.

I've also tried setting the RowIndex to msoBarRowLast, with no better luck. Then the toolbar is at the bottom of the stacka t the top of the window, but the menu bar still disappears.

I'm stumped.

Hi, Barry.

Some of this code is Private Sub Document_New()
Dim Mybar As CommandBar
Dim cmd As CommandBarPopup
Dim i As Integer
Dim A(4) As Variant
   
CustomizationContext = ActiveDocument.AttachedTemplate
On Error Resume Next
'Just making a dummy check to create error if menu exists
CommandBars("Menu Bar").Controls("A&nswers").Caption = "A&nswers"
If Not Err.Number = 0 Then
 A(1) = Array("Do this...", "DoThis", 71)
 A(2) = Array("Do that...", "DoThat", 72)
 A(3) = Array("Do the other...", "DoTheOther", 73)
 A(4) = Array("Do nothing...", "DoNothing", 74)
 With CommandBars("Menu Bar").Controls
  .Add(Type:=msoControlPopup, Before:=11).Caption = "A&nswers"
 End With
 For i = 1 To UBound(A)
  With CommandBars("Menu Bar").Controls("Answers").Controls
  Set myButton = .Add(Type:=msoControlButton)
   With myButton
    .Caption = A(i)(0)
    .OnAction = A(i)(1)
    .FaceId = A(i)(2)
   End With
  End With
 Next i
Else
End If
End Sub

<<<Insert your four macros here>>>

Private Sub Document_Close()
On Error Resume Next
ThisDocument.Saved = True
End Sub

And this is all pasted into a Word TEMPLATE (dot file).

You need to change this line:
>Dim A(4) As Variant
So that the number behind the A is the number of menu choices you have.

These lines:
>A(1) = Array("Do this...", "DoThis", 71)
Define each macro as ("Menu choice text","MacroName,Button Face ID)

I got the cool Button Face ID Add-In from John Walkenbach's site:

http://j-walk.com/ss/excel/tips/tip67.htm

And all credit for this answer should really go to smozgur, who wrote this code in a previous Q.

If this works for you, please post points for smozgur and ask community support to just PAQ the question.

:)

Now, after typing all the above, I realize you only needed to anchor the toolbar, and my code creates a menu. Never the less...I figure I'll leave it anyway in case you decide it doesn't need it's own toolbar but that a menu will do, and maybe someone else can use it.

~Dreamboat
www.TheWordExpert.com

Barry,

You never told that your new CommandBar was a Menubar, as indicated in this part of code:

Set myBar = CommandBars.Add( _
      name:="BarryToolbar", _
      Position:=msoBarTop, _
      menubar:=True, _
      Temporary:=True)

Excerpts from Word help on CommmandBars.add

"MenuBar   Optional Variant. True to replace the active menu bar with the new command bar. The default value is False."

D'oh! I didn't know the CommandBar was a Menubar.

I've cobbled this code together from a variety of things I've found online, and made changes here and there as I tried to get things to work.  I don't specifically recall changing (or even including, for that matter) that line, but obviously I'm guilty of something.

In any case, when I changed True to False, it worked exactly as one would hope. What a concept.

Regardless, bruintje and Dreamboat should look for separate points postings, just for being so helpful.

Thanks again to all who helped!

thanks Barry but keep the points for later when you bump into a real problem.....

:O)Bruintje

bruintje --

I've been a member for over two and a half years, and I've still got 1,100 points unspent. And maybe this way you'll still be quick to add commentary to expand on someone else's answer, even knowing they'll probably get the bulk of the points. The way I see it, the more input I get the better off I am. And since I'm not paying for these points...