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


--
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
"Anne Troy" wrote in message
...
Then how does she convert all these dates that exist to the same format?
*******************
~Anne Troy

www.OfficeArticles.com


"Jean-Guy Marcil" wrote in message
...
Anne Troy was telling us:
Anne Troy nous racontait que :

Sorry, Em. Word doesn't support "date formats". Try copying them into

Sure it does, ever heard of Insert Date and Time... ? Have you seen how
many formats are available there? They are even language specific.

Excel, then formatting, then bringing back to Word. But I'm not sure
that'll work either.

I would suggest that you try out simple stuff like this instead of
recommending it untested.

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