Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.word.newusers
|
|||
|
|||
Macro for Date If Statement
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 |
#2
Posted to microsoft.public.word.newusers
|
|||
|
|||
Macro for Date If Statement
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 |
Reply |
Thread Tools | |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
IF statement macro | Tables | |||
Word 2002: Macro w/today's date - update date automatically | Microsoft Word Help | |||
If statement with a date | Mailmerge | |||
which statement right , question is Choose the correct statement? | Microsoft Word Help | |||
which statement right , question isChoose the correct statement? | Microsoft Word Help |