Prev: I want to "file" a document in a folder, simply, how do I do that
Next: Microsoft Responds to the Evolution of Online Communities
From: Ray on 7 May 2010 00:28
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
From: Graham Mayor on 7 May 2010 01:32
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" <Ray(a)discussions.microsoft.com> wrote in message
news:63B90FDC-7993-424F-A7A4-02F549865C22(a)microsoft.com...
>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


 | 
Pages: 1
Prev: I want to "file" a document in a folder, simply, how do I do that
Next: Microsoft Responds to the Evolution of Online Communities