Something like this:
Sub FindAndBoldTextBetweenSpecCharacters()
Dim oRng As Range
Set oRng = ActiveDocument.Content
With oRng.Find
.ClearFormatting
.Text = "#<*>[/*]"
.Forward = True
.Wrap = wdFindStop
.MatchWildcards = True
Do While .Execute
With oRng
.Font.Bold = True
.Collapse wdCollapseEnd
End With
Loop
End With
End Sub

Signature
Greg Maxey/Word MVP
A Peer in Peer to Peer Support
> Hi,
>
[quoted text clipped - 7 lines]
> Thanks in advance.
> Sajja
Sajja - 13 Nov 2004 20:40 GMT
Thanks a lot Greg, it worked.
> Something like this:
>
[quoted text clipped - 29 lines]
> > Thanks in advance.
> > Sajja