Code: Select all
application.CommandBars("Styles").Width = 550
application.CommandBars("Navigation").width = 550
Office 365
The commands both work in Word 2010.
Code: Select all
application.CommandBars("Styles").Width = 550
application.CommandBars("Navigation").width = 550