Column? Are the dates in a table? If so then the following will work (with
column1) of the table containing the cursor
Dim oCell As Cell
Dim oRng As Range
With Selection.Tables(1)
For Each oCell In .Columns(1).Cells
Set oRng = oCell.Range
oRng.End = oRng.End - 1
If DateDiff("d", oRng, Now) 365 Then
oRng.Font.Color = wdColorGreen
End If
Next oCell
End With
If the dates are each to a paragraph then select the paragraphs and run the
following macro
Dim oPara As Paragraph
Dim oRng As Range
For Each oPara In Selection.Paragraphs
Set oRng = oPara.Range
oRng.End = oRng.End - 1
If DateDiff("d", oRng, Now) 365 Then
oRng.Font.Color = wdColorGreen
End If
Next oPara
http://www.gmayor.com/installing_macro.htm
--
Graham Mayor - Word MVP
My web site
www.gmayor.com
Word MVP web site
http://word.mvps.org
"Ray" wrote in message
...
I have a column of Dates, need the Macro to look at all the date in the
column and compare to the current date and if the date in the column is
more
that 365 days old want to turn the date in the column GREEN! Can this be
done? Currently there are over 500 dates in the column.
Thanks for your help
Ray