Try:

[VBA]Sub ScratchMacro()
'A quick macro scratch pad created by Greg Maxey
Dim oRng As Word.Range
Set oRng = ActiveDocument.Range
With oRng.Find
.Text = "...../...../....."
While .Execute
oRng.Text = Format(Now, "dd-MMM-yyyy")
oRng.Collapse wdCollapseEnd
Wend
End With
End Sub
[/VBA]