Yes, I didn't see Jay's post until after I had posted my method.

--
Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP
"Jean-Guy Marcil" wrote in message
...
Doug Robbins was telling us:
Doug Robbins nous racontait que :

Dim i As Long, j As Long, drange As Range, dtable As Table
Set dtable = Selection.Tables(1)
j = Selection.Information(wdEndOfRangeColumnNumber)
For i = 2 To dtable.Rows.Count
Set drange = dtable.Cell(i, j).Range
drange.End = drange.End - 1
drange.Text = Format(drange.Text, "dddd, MMMM d, yyyy")
Next i

Thanks Doug, I hadn't answered because Jay already had before I even
posted my message.
I guess it will reinforce the message if two versions are available!

--
Salut!
_______________________________________
Jean-Guy Marcil - Word MVP
ISTOO
Word MVP site: http://www.word.mvps.org