tab leaders

[Rob]

Hi!

Using tab leader #2 (low dots) we want to print text in black and
leaders in Gray - 50%. I have never seen a "color setting" for tab
leaders, does it exsist?

We want to automate as much as possible in our new templates.

Thanks - Rob

 

[John McGhie]

Hi Rob:

No, it does not exist. You have to generate the TOC, then search/replace
the Tab Leaders.

Here's a macro that does it automatically, turning the tab leaders to 25 per
cent grey.

Sub ReplaceTabLeaders()
'
' Macro written 04/11/2004 by John McGhie
'
Dim n As Integer

With Selection.Find
.ClearFormatting
.ParagraphFormat.Borders.Shadow = False
.Replacement.ClearFormatting
.Replacement.Font.Color = wdColorGray25
.Text = "^t"
.Replacement.Text = "^t"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With

With Selection.Find
For n = 1 To 9
.ClearFormatting
.Wrap = wdFindContinue
.Style = ActiveDocument.Styles("TOC" & Str(n))
.Execute Replace:=wdReplaceAll
Next ' n
End With
End Sub

Hi!

Using tab leader #2 (low dots) we want to print text in black and
leaders in Gray - 50%. I have never seen a "color setting" for tab
leaders, does it exsist?

We want to automate as much as possible in our new templates.

Thanks - Rob

--

Please reply to the newsgroup to maintain the thread. Please do not email
me unless I ask you to.

John McGhie <[email protected]>
Consultant Technical Writer
Sydney, Australia +61 4 1209 1410

 

[Rob]

Hi Rob:

No, it does not exist. You have to generate the TOC, then
search/replace the Tab Leaders.

Here's a macro that does it automatically, turning the tab leaders to 25
per cent grey.

Thanks John, I'll give it a try later this week

Rob