Ribbon modifications
made through the Customize the Ribbon dialog in Word are not easily transferred from one computer to another and when you do, they overwrite any customizations to the Ribbon or QAT existing. They do not allow for small icons/buttons initially. I suspect that as enough get added to the ribbon some of them would shrink.
Here is an example where each icon is assigned to a macro inserting a style:
If this were done using XML coding instead, you could have small icons and would have a much larger choice of built-in icons including the numbers from 1-9.
QAT modifications, on the other hand, can be assigned to a custom template holding the macros without using XML coding. However, without that coding, every button will be a little ball.
Modifying the Quick Access Toolbar (QAT) in Microsoft Word,
Modify Quick Access Toolbar (QAT) Button Image or Text by Greg Maxey, MVP
Whatever method is used will be labor-intensive to create.
Here are macros for the styles that I just wrote. Again, each style would need to have a macro.
Code:
Sub StyleNormal()
Selection.Style = ActiveDocument.Styles("Normal")
End Sub
Sub StyleBodyText()
Selection.Style = ActiveDocument.Styles("Body Text")
End Sub
Sub StyleHeading1()
Selection.Style = ActiveDocument.Styles("Heading 1")
End Sub
Sub StyleHeading2()
Selection.Style = ActiveDocument.Styles("Heading 2")
End Sub
Sub StyleHeading3()
Selection.Style = ActiveDocument.Styles("Heading 3")
End Sub
Sub StyleHeading4()
Selection.Style = ActiveDocument.Styles("Heading 4")
End Sub
Sub StyleHeading5()
Selection.Style = ActiveDocument.Styles("Heading 5")
End Sub
Sub StyleHeading6()
Selection.Style = ActiveDocument.Styles("Heading 6")
End Sub
Sub StyleHeading7()
Selection.Style = ActiveDocument.Styles("Heading 7")
End Sub
Sub StyleHeading8()
Selection.Style = ActiveDocument.Styles("Heading 8")
End Sub
Sub StyleHeading9()
Selection.Style = ActiveDocument.Styles("Heading 9")
End Sub