Re: Word, Macros and Tool Tips

Subject: Re: Word, Macros and Tool Tips
From: "M Page" <mpage -at- csl -dot- co -dot- uk>
To: "TECHWR-L" <techwr-l -at- lists -dot- raycomm -dot- com>
Date: Tue, 16 Dec 2003 10:12:24 -0000


>[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.



Previous by Author: Re: TECHWRLing vs. techwriting
Next by Author: FrameMaker 7 tutorial
Previous by Thread: RE: Word, Macros and Tool Tips
Next by Thread: Converting PDF to Word or FrameMaker


What this post helpful? Share it with friends and colleagues:


Sponsored Ads