• I want to thank all the members that have upgraded your accounts. I truly appreciate your support of the site monetarily. Supporting the site keeps this site up and running as a lot of work daily goes on behind the scenes. Click to Support Signs101 ...

Setting numbers up in numerical order?

I need to set up numbers 24000-25000 to be cut on my plotter.
Anyone know of a macro that will do it easily?
I have corel x3,x4 or x7 to choose from.

Thanks
 
Not a corel user. But I am an avid YouTube user. Now days you can find anything on youtube. Including how to use Corel x3 to do sequential numbering.

[video=youtube;A_CZMlfipCQ]https://www.youtube.com/watch?v=A_CZMlfipCQ[/video]
 

myront

CorelDRAW is best
might try this one.

Sub GridOfNumbers2()
Dim s1 As Shape, startnum As Integer, i As Integer, ix As Integer, ti As Integer
ActiveDocument.Unit = cdrMillimeter
startnum = InputBox("Enter starting number")
ActiveDocument.BeginCommandGroup ("numbers")
Optimization = True
ti = startnum
For i = startnum To (startnum + 30) 'adjust this number to get more or less
For ix = startnum To (startnum + 21) 'adjust this number to get more or less
Set s1 = ActiveLayer.CreateArtisticText(0 + x, 290 + y, Format(ti, "000"))
s1.Fill.UniformColor.CMYKAssign 45, 45, 45, 100
s1.Outline.SetNoOutline
x = x + 40
ti = ti + 1
Next ix
x = 0
y = y - 30
Next i
Optimization = False
ActiveWindow.Refresh
End Sub
 
might try this one.

Sub GridOfNumbers2()
Dim s1 As Shape, startnum As Integer, i As Integer, ix As Integer, ti As Integer
ActiveDocument.Unit = cdrMillimeter
startnum = InputBox("Enter starting number")
ActiveDocument.BeginCommandGroup ("numbers")
Optimization = True
ti = startnum
For i = startnum To (startnum + 30) 'adjust this number to get more or less
For ix = startnum To (startnum + 21) 'adjust this number to get more or less
Set s1 = ActiveLayer.CreateArtisticText(0 + x, 290 + y, Format(ti, "000"))
s1.Fill.UniformColor.CMYKAssign 45, 45, 45, 100
s1.Outline.SetNoOutline

x = x + 40
ti = ti + 1
Next ix
x = 0
y = y - 30
Next i
Optimization = False
ActiveWindow.Refresh
End Sub

That looks way over my head!!
 

James Burke

Being a grandpa is more fun than working
With a sequenced text or Excel file (which takes two minutes to make), SignLab can do this with the "badge" function. It only takes three or four clicks of the mouse.

I'm not sure what files you can import, but let me know if I can help.


JB
 

myront

CorelDRAW is best
That looks way over my head!!

Tools/Macros/Macro Manager
right clcik on Visual Basic for Applications
choose New Macro Project
Name NumberGrid (no spaces)
Right click on that title and choose New Module and enter
right click on that and choose new macro
copy the macro above and paste over what's there.
 

myront

CorelDRAW is best
Tools/Macros/Macro Manager
right clcik on Visual Basic for Applications
choose New Macro Project
Name NumberGrid (no spaces)
Right click on that title and choose New Module and enter
right click on that and choose new macro
copy the macro above and paste over what's there.

You'll want to change this line Set s1 = ActiveLayer.CreateArtisticText(0 + x, 290 + y, Format(ti, "000")) to
Set s1 = ActiveLayer.CreateArtisticText(0 + x, 290 + y, Format(ti, ""))
 
Top