Macro for Date If Statement

[Ray]

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

 

[Graham Mayor]

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

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