CorelDRAW Graphics Suite 2025

CorelDRAW Graphics Suite 2025 for Mac Corel Macro - Insert Date, replace text object

This discussion has been locked.

You can no longer post new replies to this discussion. If you have a question you can start a new discussion

Corel Macro - Insert Date, replace text object

Hi. I have this code to insert the current date into a blank document. However, I would like to tweak it so that it replaces text with and ID of "Date". This should be easy but I'm still a little lost on how to do this.

Sub InsertDate()
    ' Get the current date
    Dim currentDate As String
    currentDate = Format(Date, "mm/dd/yyyy") ' Or use your desired format

    ' Get the active document
    Dim activeDoc As Object
    Set activeDoc = ActiveDocument

    ' Get the active layer
    Dim activeLayer As Object
    Set activeLayer = activeDoc.ActiveLayer

    ' Create a text object
    Dim textObject As Object
    Set textObject = activeLayer.CreateArtisticText(0, 0, currentDate)

    ' Position the text object (adjust as needed)
    textObject.PositionX = 10 ' Example: 10 mm from the left edge
    textObject.PositionY = 10 ' Example: 10 mm from the top edge

End Sub

Top Replies

0 grogo over 1 year ago

I tried this but no luck.

Sub DateInsert2()
Dim p As Page
Dim currentDate As String
Dim activeLayer As Object
Set activeLayer = activeDoc.activeLayer
currentDate = Format(Date, "mm/dd/yyyy")
activeLayer.FindShape(Date).Text.Story = activelayer.Name currentDate
'ActivePage.Name = "__" & activeLayer.FindShape("sku").Text.Story
End Sub
Cancel
Up 0 Down

Cancel
0 Mek over 1 year ago in reply to grogo

You 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
Cancel
Up +1 Down

Cancel
0 grogo over 1 year ago in reply to Mek

Thank you. It was a bugger trying to figure out the exact position for the updated date but I got it. Is there a way to grab the object position and pop up a message box showing the coords?

here is the altered code:

Sub IDAT()
Dim DAT As Shape, x#, y#
ActiveDocument.Unit = cdrMillimeter
ActivePage.FindShapes(Name:="date").Delete
x = 317 'position of text with a system date and time
y = 39.5 'position of text with a system date and time
Set DAT = activeLayer.CreateArtisticText(x, y, Date & " ", cdrEnglishUS, , "Calibri", 9, , , , cdrLeftAlignment)
DAT.Fill.UniformColor.CMYKAssign 0, 0, 0, 100
DAT.Name = "date"
End Sub
Cancel
Up 0 Down

Cancel
+1 Mek over 1 year ago in reply to grogo

you can try code below

Sub IDAT()
Dim DAT As Shape, x#, y#, sr As Shape
ActiveDocument.Unit = cdrMillimeter
Set sr = ActivePage.FindShape(Name:="date")
sr.GetPositionEx cdrBottomLeft, x, y
MsgBox ("position x = " & x & vbCr & "position y = " & y)
sr.Delete
'x = 317 'position of text with a system date and time
'y = 39.5 'position of text with a system date and time
Set DAT = ActiveLayer.CreateArtisticText(x, y, Date & " ", cdrEnglishUS, , "Calibri", 9, , , , cdrLeftAlignment)
DAT.Fill.UniformColor.CMYKAssign 0, 0, 0, 100
DAT.Name = "date"
End Sub
Cancel
Up +1 Down

Cancel
0 grogo over 1 year ago in reply to Mek

This is great. Can you strip this down to a macro that only gets the object position with msg box? I tried and broke it.
Cancel
Up 0 Down

Cancel