THIS IS A VB6 ADD-IN FOR MS WORD!!!!
I've been trying to figure this out for several hours now to no avail. What I'm trying to do is add a button to a new CommandBar for each printer attached to my system. Each button will have the same .OnAction. What's happening is only the last button created is getting the .OnAction property assigned (so I know it works). If the buttons weren't Office CommandBarButtons, I could create a button array, but NNNNOOOOOOOOOOOOO, Microsoft was having none of that.
So the basic question is this: How do I assign a new button to the commandbar and assigne each button to the same OnAction event? Here's my code!!! (forgive me for posting all of it).
Public oWord As Object
Public WithEvents button As Office.CommandBarButton
Private Sub AddinInstance_OnConnection(ByVal Application As Object, ByVal ConnectMode As AddInDesignerObjects.ext_ConnectMode, ByVal AddInInst As Object, custom() As Variant)
On Error Resume Next
Set oWord = Application
Dim pb As Object 'new command bar
Dim p As Printer 'printer object
Dim pName As String 'printer name without the path
Set pb = oWord.CommandBars("Printbar") 'does the commandbar exist?
If pb Is Nothing Then
Err.Clear 'if we got here, it doesn't
Set pb = oWord.CommandBars.Add("Printbar") 'create it
pb.Visible = True 'let's see it
For Each p In Printers 'create a new button for each printer in the printers collection
pName = Mid(p.DeviceName, InStrRev(p.DeviceName, "\") + 1)
Set button = oWord.CommandBars.FindControl(, , pName) 'does the button already exist?
If button Is Nothing Then
Set button = oWord.CommandBars("Printbar").Controls.Add(1) 'no? Let's create it
button.Tag = pName
button.Parameter = pName
button.Caption = pName
button.Style = msoButtonCaption
button.OnAction = "!<" & AddInInst.ProgId & ">" 'this is what we do when we click it!
button.Visible = True 'gotta see it to click it
Private Sub AddinInstance_OnDisconnection(ByVal RemoveMode As AddInDesignerObjects.ext_DisconnectMode, custom() As Variant)
On Error Resume Next
Set button = Nothing
Set oWord = Nothing
Private Sub button_Click(ByVal Ctrl As Office.CommandBarButton, CancelDefault As Boolean)
MsgBox Ctrl.Parameter 'msgbox to see if it's working