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
actually this is the code...
1 2 3 4 5 6 7 8 9 10
Sub ReplaceText() Dim txtFIND As String 'The word you want to find and replace Dim txtREPLACE As String 'The new word to replace the old Dim s As Shape ActivePage.Layers("Titleblock").Activate txtFIND = "0/0/2020" txtREPLACE = CStr(Date) ActivePage.Layers("Titleblock").TextReplace txtFIND, txtREPLACE, True, False End Sub
try this (not tested)
Sub ReplaceText() Dim txtFIND As String 'The word you want to find and replace Dim txtREPLACE As String 'The new word to replace the old Dim s As Shape ActivePage.Layers("Titleblock").Activate txtFIND = "0/0/2020" txtREPLACE = CStr(Date)
ActivePage.TextReplace txtFIND, txtREPLACE, True, FalseEnd Sub
you can also try to look here
https://community.coreldraw.com/talk/coreldraw_graphics_suite_x6/f/coreldraw-graphics-suite-x6/50547/i-am-looking-for-a-way-to-make-coreldraw-x6-automatically-insert-the-current-time-and-date-into-a-specific-area-on-a-drawing/240510#240510