little help - macro to find text object and replace with current date

Hello.  I have put together this code but it seems I missed something.

All help is appreciated greatly.

1
2
3
4
5
6
7
8
9
Sub ReplaceTextCurrentPage()
    Dim txtFIND As String
    Dim txtREPLACE As String 

    txtFIND = ActiveDocument.FindShape("date")
    txtREPLACE = CStr(Date)

    ActivePage.TextReplace txtFIND, txtREPLACE, True, False
End Sub
Parents Reply Children