I have written the following code in Word 2000 so that my required 3 commanbars are automatically loaded when Word starts.
I like the toolbars to be on their own separate line so how can I make sure that the order is "Standard", then "Formatting" and then "PBA Toolkit". Sometimes other users disturb the order and I have to manually reset them.
Sub Aut
pen()
With CommandBars("Standard"
.Visible = True
.Position = msoBarTop
.left = 0
End With
With CommandBars("Formatting"
.Visible = True
.Position = msoBarTop
.left = 0
End With
With CommandBars("PBA Toolkit"
.Visible = True
.Position = msoBarTop
.left = 0
End With
ActiveWindow.View.Type = wdPrintView
End Sub
I have read about indexRow properties of first & last, but is there a way that I can set any number of commandbars into a sequence?
Please help![[ponder] [ponder] [ponder]](/data/assets/smilies/ponder.gif)
I like the toolbars to be on their own separate line so how can I make sure that the order is "Standard", then "Formatting" and then "PBA Toolkit". Sometimes other users disturb the order and I have to manually reset them.
Sub Aut
With CommandBars("Standard"
.Visible = True
.Position = msoBarTop
.left = 0
End With
With CommandBars("Formatting"
.Visible = True
.Position = msoBarTop
.left = 0
End With
With CommandBars("PBA Toolkit"
.Visible = True
.Position = msoBarTop
.left = 0
End With
ActiveWindow.View.Type = wdPrintView
End Sub
I have read about indexRow properties of first & last, but is there a way that I can set any number of commandbars into a sequence?
Please help
![[ponder] [ponder] [ponder]](/data/assets/smilies/ponder.gif)