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