go to & highlight today's date on open

[adgorn]

I have a word document with a lengthy list of dates in a table. Upon
opening, I'd like to see today's date highlighted and have it go to that
date. Help??!! Thanks!

 

[Helmut Weber]

Hi,

in what format are the dates,
and more,
is that format used *consistently* ?

--
Greetings from Bavaria, Germany

Helmut Weber, MVP WordVBA

Win XP, Office 2003
"red.sys" & Chr$(64) & "t-online.de"

 

[adgorn]

They are consistent. Here's an example:

29-Sep-06

 

[Helmut Weber]

Hi Alan,

like this:

Sub autoopen()
Dim sTmp As String
Dim rDcm As Range
Set rDcm = ActiveDocument.Range
sTmp = Format(Date, "DD-MMM-YY")
With rDcm.Find
.Text = sTmp
If .Execute Then
rDcm.HighlightColorIndex = wdYellow
rDcm.Select
selection.Collapse
else
Msgbox "date of today not found"
End If
End With
End Sub

Insert a module in the project
with the name of your doc.
Insert the code in that module.

HTH

--
Greetings from Bavaria, Germany

Helmut Weber, MVP WordVBA

Win XP, Office 2003
"red.sys" & Chr$(64) & "t-online.de"

 

[adgorn]

It worked perfectly!

Danke für Deine Hilfe!

 

[Helmut Weber]

Hi Alan,

in case you are using the code exactly as it was provided,
add this line before "end sub".

selection.GoTo What:=wdGoToPage, which:=wdGoToNext

Which puts the cursor at the start of the next page,
and to the start of the last page,
if the last date, you've processed, is on the last page anyway.

If there is something wrong, post the exact code you are using.

--
Greetings from Bavaria, Germany

Helmut Weber, MVP WordVBA

Win XP, Office 2003
"red.sys" & Chr$(64) & "t-online.de"