Querendo saber mais informações sobre as barras de ferramentas do Word? A Microsoft ajuda. Neste exemplo de código, o VBA imprime em um novo documento todos os nomes, rótulos e FaceId de todas as barras de ferramentas existentes.
O exemplo foi apresentado pelo Paulo Cesar Semblano do fórum Julio Battisti.
Do site da Microsoft:
Gerar uma lista de nomes da barra de comandos, legendas e os números de ID:
Sub FindFaceIDsWordDocument() 'This code prints the information to a new Word document. Dim c As CommandBar, ctl As CommandBarControl Application.Documents.Add For Each c In Application.CommandBars For Each ctl In c.Controls If ctl.Type = msoControlButton Then Selection.TypeText "CommandBar Name: " & c.Name & _ " | Caption: " & ctl.Caption & " | Face Id : " & ctl.FaceId Selection.TypeParagraph End If Next Next End Sub
Outros sites da Microsoft:
http://support.microsoft.com/kb/213209/pt
http://support.microsoft.com/kb/213552/pt
Abraços
Tomás Vásquez
www.tomasvasquez.com.br