Convert date text to mm/dd/yyyy

[Kim]

I started this macro, but I don't know how to make it loop within the
selection. (I use this macro to highlight a paragraph or table, and
search for all spelled out dates and convert the find to mm/dd/yyyy
number format). I want the macro to continue within my selection. Is
this possible?


Selection.Find.ClearFormatting
With Selection.Find
.text = "(<[ADFJMNOS]*>) ([0-9]{1,2}), ([0-9]{4})"
.MatchWildcards = True
End With
Selection.Find.Execute

If IsDate(Selection.Range) Then
Selection.Range = Format(Selection.Range, "mm/dd/YYYY")
End If


End Sub

Thanks,
Kim

 

[Graham Mayor]

Sub ReformatDate()
Dim rDate As Range
With Selection
.HomeKey wdStory
With .Find
.ClearFormatting
.Replacement.ClearFormatting
Do While .Execute(findText:="(<[ADFJMNOS]*>) ([0-9]{1,2}),
([0-9]{4})", _
MatchWildcards:=True, _
Wrap:=wdFindStop, Forward:=True) = True
Set rDate = Selection.Range
If IsDate(rDate) Then
rDate = format(rDate, "MM/dd/yyyy")
End If
Loop
End With
End With
End Sub


--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP


<>>< ><<> ><<> <>>< ><<> <>>< <>><<>