How can I colour anything within a bracket using an IF Statement

[mrlylos]

Hi all,

I've got a document that is a mixture of plain text in between brackets, for
example:

<p>I need to be translated</p>
<p>please translate me</p>

The document is large and has many instances of tags and plain text and what
I want to do is be able to write an IF statement that colours anything within
the <> brackets red.

Cany anyone help?

Many thanks in advance

mrlylos

 

[Pesach Shelnitz]

Hi,

The following macro does this.

Sub ColorThemRed()
Dim myRange As Range
Set myRange = ActiveDocument.Range

With myRange
.start = 0
Do While .Find.Execute(FindText:="\<*\</*\>", _
MatchWildcards:=True, _
Wrap:=wdFindStop, Forward:=True) = True
.Font.Color = wdColorRed
.Collapse Direction:=wdCollapseEnd
Loop
End With
Set myRange = Nothing
End Sub

 

[mrlylos]

Many thanks Pesach, that save me a long and laborious task!