so... I still cant get the replace to work..
within word you can use the following
With Selection.Find
.Execute "insert date", , , , , , , , , DateValue(Now() - Weekday(Now(), vbMonday) - 2), wdReplaceAll
End With
but when I try to implement as follows:
Set doc = msg.GetInspector.WordEditor
If Not doc Is Nothing Then
doc.application.selection.find.execute _
"insert date", , , , , , , , , DateValue(Now() - Weekday(Now(), vbMonday) - 2), wdReplaceAll
End If
it just highlights the text rather than replace. any thoughts?