Question : Customise buttons in Word - Macro button icons - Export from word 2003 into Word 2007

Hi,

My client makes use of Macros and adds custom buttons to the tool bars for these macros.
I learnt that actually someone in the office was just manually drawing the Macro buttons on the option to do this.
Some users have had to move to Office 2007.

I would like to be able to export the many custom icons they have created for Word 2003 buttons so that these are available in Word 2007. In fact I would like to create a standard list of Macro functions with consistant icons associated across the company rather then the random collection they have now.
can anyone point me in the right direction (basically how do I export the icon images and import them into Word 2007).
Thanks

Answer : Customise buttons in Word - Macro button icons - Export from word 2003 into Word 2007

Save this code in a Word module, and run the GetAllCB macro.
You should get a list of all commandbars with their icon image, caption and control ID.  Custom toolbars (i.e. not "Builtin") are identified)
Sub GetAllCB()
    Dim cb As CommandBar
    Dim strText As String
    For Each cb In Application.CommandBars
        If cb.Name = "WordCodePrint" Or cb.Name = "WordVBACodePrint" Then
            Call GetFaces(cb, strText)
        Else
            Call GetFaces(cb, strText)
        End If
    Next cb
End Sub

Sub GetFaces(cb, strText)
 
    Dim objControl As Office.CommandBarControl
    Dim objPopupControl As Office.CommandBarPopup
    On Error Resume Next
   
    Selection.TypeParagraph
    Selection.TypeText "CommandBar: " & cb.Name & vbCrLf
    Selection.MoveDown unit:=wdLine, Count:=2
   
    For Each objControl In cb.Controls
        If objControl.BuiltIn = True Then
        Else
            Selection.TypeText "Custom Toolbar" & vbCrLf & vbCrLf
        End If
            Select Case objControl.Type
                Case msoControlPopup, _
                     msoControlButtonPopup, _
                     msoControlGraphicPopup, _
                     msoControlSplitButtonPopup
                     strText = strText & vbCrLf & vbCrLf & _
                      objControl.Caption & _
                      " (Submenu) - " & objControl.ID
                    Set objPopupControl = objControl
                    Call GetFaces( _
                      objPopupControl.CommandBar, strText)
                 Case Else
                    strText = vbTab & _
                      objControl.Caption & " - " & objControl.ID

                    objControl.CopyFace
                    Selection.Paste
                    Selection.TypeText strText
                    Selection.TypeParagraph
            End Select
        'End If
    Next
   
    Set objControl = Nothing
    Set objPopupControl = Nothing    

End Sub

Regards
dmang