Hi Vince,

have a look at this demo:

Sub test55555()
Dim rDcm As Range
Set rDcm = ActiveDocument.Range
Dim sTmp As String
With rDcm.Find
  .MatchWildcards = True
  .Text = "\<Text\>" & "[!^l^13]@" & "\</Text\>"
  .Execute
   rDcm.start = rDcm.start + 7
   rDcm.End = rDcm.End - 8
   sTmp = rDcm.Text
   rDcm.Text = StrConv(sTmp, vbProperCase)
   rDcm.Text = sTmp
   rDcm.Text = StrConv(sTmp, vbUpperCase)
   rDcm.Text = sTmp
   rDcm.Text = StrConv(sTmp, vbLowerCase)
   rDcm.Text = sTmp
   rDcm.Font.AllCaps = True
   rDcm.Font.Reset
   rDcm.Font.SmallCaps = True
   rDcm.Font.Reset
End With
End Sub

For use in a while .execute wend loop you'd have
to collapse rDcm to the end at the end of the loop.

rdcm.collapse direction:=wdcollapseend
wend

HTH

Greetings from Bavaria, Germany

Helmut Weber, MVP
"red.sys" & chr(64) & "t-online.de"
Word XP, Win 98
http://word.mvps.org/

Vince

Try:
Sub Test()
Dim myRange As Range
Dim myString As String

Set myRange = ActiveDocument.Range
With myRange.Find
  .ClearFormatting
  .MatchWildcards = True
  .Text = "\<*\>" & "[!^l^13]@" & "\</*\>"
  While .Execute
    With myRange
      .Case = wdTitleWord ' for a
'      .Case = wdTitleSentence ' for b
'      .Case = wdLowerCase ' for c
'      .Case = wdUpperCase ' for d
'      .Font.SmallCaps = True 'for e
    End With
    myRange.Collapse direction:=wdCollapseEnd
  Wend
End With
End Sub

Vince,

I like how Helmut excluded the Tags from the formatting.  I tried that
with my original code and noticed that it didnt' work for "b" or
Sentence case.  I found that even using the menu Format>Change Case you
couldn't apply sentence case formating if the selection was not
structured as a sentence.  To get around this I did a little string
manipulation.

Try:

Sub Test()
Dim myRange As Range
Dim myString As String
Dim myString2 As String
Set myRange = ActiveDocument.Range
With myRange.Find
  .ClearFormatting
  .MatchWildcards = True
  .Text = "\<*\>" & "[!^l^13]@" & "\</*\>"
  While .Execute
    myRange.Start = myRange.Start + 7
    myRange.End = myRange.End - 8
   With myRange
     .Case = wdTitleWord ' for a
     'Use the following three lines for b (Sentence Case)
     'myString = myRange.Text
     'myString = Format(Left(myString, 1), ">") & Right(myString,
Len(myString) - 1)
     'myRange.Text = myString
     '.Case = wdLowerCase ' for c
     '.Case = wdUpperCase ' for d
     '.Font.SmallCaps = True 'for e
    End With
    myRange.Collapse direction:=wdCollapseEnd
  Wend
End With
End Sub