Tag Archives: CommadBar

Word VBA – Imprimindo a lista de nomes dos comandos das barras de ferramentas

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