Keyboard shortcut hover help

[Top Spin]

Is there any way to get Word (2000) to display any keybard shortcuts
that may be assigned to toolbar icons when I hover the mouse pointer
over the icon?

Thanks

 

[Suzanne S. Barnhill]

Tools | Customize | Options: Show shortcut keys in ScreenTips.

 

[Top Spin]

Tools | Customize | Options: Show shortcut keys in ScreenTips.

Thanks. That does it for the standard icons. But it doesn't seem to
work on the personalized toolbar I created to hold several macros I
wrote, some of which I assigned to keyboard shortcuts. Can I get those
shortcuts to be displayed, too?

 

[Beth Melton]

The only way to modify a ScreenTip for a toolbar command is to use a
little VBA. Since it isn't very intuitive, here's a macro that will
help you out:

Sub ChangeToolTip()
'Macro created by Beth Melton
'Nov 1, 2001
On Error Resume Next
Dim strbar As String
Dim bytNum As Byte
Dim strText As String
Dim strDText As String
Dim Choice As String

strDText = "Standard"

Do
strbar = InputBox("Type the name of the toolbar", , strDText)
strDText = strbar
bytNum = InputBox("Control Number: Starting with 1 " _
& "from the left of the Toolbar")
strText = InputBox("Type your ToolTip Text")
CommandBars(strbar).Controls(bytNum).TooltipText = strText

Choice = MsgBox("Do you want to add another ToolTip?", _
vbYesNo + vbQuestion)
Loop Until Choice = vbNo

End Sub

--
Please post all follow-up questions to the newsgroup. Requests for
assistance by email can not be acknowledged.

~~~~~~~~~~~~~~~
Beth Melton
Microsoft Office MVP

Word FAQ: http://mvps.org/word
TechTrax eZine: http://mousetrax.com/techtrax/
MVP FAQ site: http://mvps.org/

 

[Top Spin]

The only way to modify a ScreenTip for a toolbar command is to use a
little VBA. Since it isn't very intuitive, here's a macro that will
help you out:

Sub ChangeToolTip()
'Macro created by Beth Melton
'Nov 1, 2001
On Error Resume Next
Dim strbar As String
Dim bytNum As Byte
Dim strText As String
Dim strDText As String
Dim Choice As String

strDText = "Standard"

Do
strbar = InputBox("Type the name of the toolbar", , strDText)
strDText = strbar
bytNum = InputBox("Control Number: Starting with 1 " _
& "from the left of the Toolbar")
strText = InputBox("Type your ToolTip Text")
CommandBars(strbar).Controls(bytNum).TooltipText = strText

Choice = MsgBox("Do you want to add another ToolTip?", _
vbYesNo + vbQuestion)
Loop Until Choice = vbNo

End Sub

Excellent. I will play with that. Thanks.