microsoft.public.word.vba.general

As i understand your description, you only want to apply highlight to
footnote text. If that is correct, I think the following macro will do the
job:

Sub Footnotes_ApplyYellowHighligtToBoldText()

Dim oRange As Range

'Stop if no footnotes found
If ActiveDocument.Footnotes.Count = 0 Then
MsgBox "No footnotes found."
Exit Sub
End If

Set oRange = ActiveDocument.StoryRanges(wdFootnotesStory)

With oRange.Find
.ClearFormatting
.Font.Bold = True
Do Until .Execute = False
oRange.HighlightColorIndex = wdYellow
Loop
End With

'Clean up
Set oRange = Nothing

MsgBox "Finished."
End Sub

--
Regards
Lene Fredborg
DocTools - Denmark
www.thedoctools.com
Document automation - add-ins, macros and templates for Microsoft Word


"andreas" wrote:

> Dear Experts:
>
> Is it possible to highlight (e.g. HighlightColorIndex = wdYellow) all
> characters/words that have been formatted bold (either through manual
> formatting or through appyling a user-defined character style) in
> footnotes by using VBA.
>
> Help is appreciated.
>
> Thank you very much in advance.
>
> Regards, Andreas
>