<div>
<div class="content wysiwyg-content">
I'm wondering if there is a way to change the mini toolbar in Word 2007 that pops up just above the context menu using VBA. &nbsp;For instance, as I posted in a related question, I use the following code to create an underline button within the right-click context menu. &nbsp;It would be even better if I could place this button in the mini toolbar.<br />
<br />
Sub Addunderline()<br />
&nbsp; &nbsp; Dim cb As CommandBar<br />
&nbsp; &nbsp; Dim c As CommandBarButton<br />
&nbsp; &nbsp; Set cb = Application.CommandBars(&quot;T<wbr />ext&quot;)<br />
&nbsp; &nbsp; Set c = cb.FindControl(, , &quot;VBAxUnderline&quot;)<br />
&nbsp; &nbsp; If c Is Nothing Then<br />
&nbsp; &nbsp; &nbsp; &nbsp; Set c = cb.Controls.Add(msoControl<wbr />Button, 115, , 5, True)<br />
&nbsp; &nbsp; &nbsp; &nbsp; With c<br />
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; .Caption = &quot;&amp;Underline&quot;<br />
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; .Style = msoButtonIconAndCaption<br />
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; .TooltipText = &quot;Underline&quot;<br />
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; .Tag = &quot;VBAxUnderline&quot;<br />
&nbsp; &nbsp; &nbsp; &nbsp; End With<br />
&nbsp; &nbsp; End If<br />
End Sub
</div>
</div>


I'm wondering if there is a way to change the mini toolbar in Word 2007 that pops up just above the context menu using VBA.  For instance, as I posted in a related question, I use the following code to create an underline button within the right-click context menu.  It would be even better if I could place this button in the mini toolbar.

Sub Addunderline()
    Dim cb As CommandBar
    Dim c As CommandBarButton
    Set cb = Application.CommandBars("Text")
    Set c = cb.FindControl(, , "VBAxUnderline")
    If c Is Nothing Then
        Set c = cb.Controls.Add(msoControlButton, 115, , 5, True)
        With c
            .Caption = "&Underline"
            .Style = msoButtonIconAndCaption
            .TooltipText = "Underline"
            .Tag = "VBAxUnderline"
        End With
    End If
End Sub

Changing right-click mini toolbar

Microsoft Office is an integrated suite of applications that includes Outlook, Word, Excel, Access, PowerPoint, Visio and InfoPath, along with a number of tools to assist in making the individual components work together. Coding within and between the projects is done in Visual Basic for Applications, known as VBA.

Microsoft Office

Microsoft Word is a commercial document editing program that is part of the Microsoft Office suite. It features numerous text-editing tools for creating richly formatted documents, along with tools for the use of macros in Word documents. Word's native file formats are denoted either by a .doc or .docx file extension. Plugins permitting the Windows versions of Word to read and write formats it does not natively support, such as the OpenDocument format (ODF) are available. Word can import and display images in common bitmap formats such as JPG and GIF. It can also be used to create and display simple line-art.