Re: Word, Macros and Tool Tips

["M Page" <mpage -at- csl -dot- co -dot- uk>]

>[Alex wants to redo the tooltips in a Word 97 .dot]

Alex, if you're feeling lazy, you might want to try my macro.
Caveat: It's only been tested in Word XP
_______________________

Sub tooltips()
'This rewrites tooltips
'It also provides some info on what the toolbar button's
'connected to.

Dim mybar As CommandBar
Dim concount As Integer

If ActiveDocument.Type = wdTypeTemplate Then

Dim target As String

target = InputBox("Enter name of toolbar", "Update toolbar tooltips")

    Set mybar = CommandBars(target)
    concount = mybar.Controls.Count

    For i = 1 To concount


    With mybar.Controls(i)

    cap = "TAG: " & Chr(10) & .Tag _
    & Chr(10) & Chr(10) & "DESCRIPTION: " & Chr(10) & .DescriptionText _
    & Chr(10) & Chr(10) & "ACTION OR MACRO: " & Chr(10) & .OnAction _
    & Chr(10) & Chr(10) & "ENTER NEW CAPTION (or click CANCEL to stop):"



    blurb = InputBox(cap, "Edit Tooltip", .TooltipText)


    If Not blurb = "" Then
        .TooltipText = blurb
    Else
    ' "" = cancel
        Exit For

    End If

    End With

    Next i

Else
MsgBox "You can only change tooltips in the original template, and you need
permission to do that.", vbExclamation

End If

End Sub



^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

ROBOHELP FOR FRAMEMAKER TRIAL NOW AVAILABLE!

RoboHelp for FrameMaker is a NEW online publishing tool for FrameMaker that
lets you easily single-source content to online Help, intranet, and Web.  
The interface is designed for FrameMaker users, so there is little or no
learning curve and no macro language required! Call 800-718-4407 for 
competitive pricing or download a trial at: http://www.ehelp.com/techwr-l4

---
You are currently subscribed to techwr-l as:
archive -at- raycomm -dot- com
To unsubscribe send a blank email to leave-techwr-l-obscured -at- lists -dot- raycomm -dot- com
Send administrative questions to ejray -at- raycomm -dot- com -dot-  Visit
http://www.raycomm.com/techwhirl/ for more resources and info.