OberonPlace.com Forums  

Go Back   OberonPlace.com Forums > Developer Forums > VBA > CorelDRAW/Corel DESIGNER VBA

Reply
 
Thread Tools Search this Thread Display Modes
  #1  
Old 07-04-2004, 09:33
DaFool
Guest
 
Posts: n/a
Default Auto Numbering Script

Is there a script out there that you can define the font, size and numbering sequence for Corel?

I work for a real estate company and I have to cut 0-500 in various sizes and increments. Sometime the numbers will always end in a Letter (A) or even end with the same numer ( 5001, 5011, 5021, 5031) and so on.

I would love to have a script where I could define the numbering sequence and also define if it ends with a letter or number. Also define it to fit in a certain height. Our plotter can cut to a max of 24.75".

Does anyone know of a script like this or would they also have a use for it?
Reply With Quote
  #2  
Old 08-04-2004, 08:53
Alex's Avatar
Alex Alex is offline
Administrator
 
Join Date: Nov 2002
Posts: 1,941
Blog Entries: 4
Default Re: Auto Numbering Script

I wanted to create the script like this for a long long time. So that it can generate custom labels right in the document. Maybe even place barcodes. One day I will do this. But till now, I would try using Print Merge feature in CorelDRAW which can do similar things during printing. You need to create a list of numbers using some method (maybe even through VBA) as a text file, database or other data source, then just insert merge field in the document and use Print Merge to generate multiple labels with different numbers in it.
Reply With Quote
  #3  
Old 23-01-2005, 14:01
fadimas
Guest
 
Posts: n/a
Default Re: Auto Numbering Script

Quote:
Originally Posted by Alex
and use Print Merge to generate multiple labels with different numbers in it.
And when the lenght of string is too big for the label width and cross on the others labels ?
Reply With Quote
  #4  
Old 23-01-2005, 23:07
Alex's Avatar
Alex Alex is offline
Administrator
 
Join Date: Nov 2002
Posts: 1,941
Blog Entries: 4
Default Re: Auto Numbering Script

Quote:
Originally Posted by fadimas
And when the lenght of string is too big for the label width and cross on the others labels ?
You should use Paragraph Text object. It will wrap the text lines (just need to give it enough space to fit the longest string along as many lines as you think there could be)
Reply With Quote
  #5  
Old 24-01-2005, 00:31
fadimas
Guest
 
Posts: n/a
Default Re: Auto Numbering Script

Quote:
Originally Posted by Alex
(just need to give it enough space to fit the longest string along as many lines as you think there could be)
If I reserve space for 50 chars and the major strings are 25 chars, the result is not professional looking.
My solution for all print merge for ID cards (and similarities, incl. auto numbering) is to merging data BEFORE printing, in an CDR file with all pages. So, I check all the cards and I correct only on text object how need.
I found an software with this capabilities, but 300 USD is excesive (not only for Est Europe) for one only week of working (yes, his UI is better than my)
Reply With Quote
  #6  
Old 24-01-2005, 09:52
fadimas
Guest
 
Posts: n/a
Default Re: Auto Numbering Script

Quote:
Originally Posted by fadimas
I found an software with this capabilities, but 300 USD is excesive (not only for Est Europe) for one only week of working (yes, his UI is better than my)
And my script use photo also.
The trick is this: I creat an "template" of the card, somewhere outside of the page. All object for data are text object, with all the formating needed. In place of the photo is an rectangle.
The script read an text file (CSV) with the database, duplicate all template object, one by one and replace string in text object with the string from DB and import photo in place of the rectangle, redimension and convert to RGB or CMYK, acording to the initial data (atach.)
When the page is full, create another one.
After script ending, i check visualy text object and shrink / condense only needed.
On CorelScript v9 it took 2 min for generating of 300 cards.
The only minus: Corel Corp don't heard about the breacking of Berlin Wall and eastern european characters don't work. Yes, i now, Alex post an solution in VBA in his former Yahoo group.
Attached Images
 
Reply With Quote
  #7  
Old 24-01-2005, 10:03
fadimas
Guest
 
Posts: n/a
Default Re: Auto Numbering Script

For Auto numbering I modified the UI, but the principle is the same.
Attached Images
 
Reply With Quote
  #8  
Old 31-01-2005, 11:27
Seelenquell
Guest
 
Posts: n/a
Default

i have a script too..

my script looks for the object-name and replaces all the numbers at the end of the text-string.

example:
TEST010111
start: 9
how long is the number-string? 5

> TEST00009,TEST00010 and so on

every marked object with the specified objectname will get the new string.

i have another script that places the marked object(s) in a user-sized sheet after editing the quantity X and Y and the space between the objects.

example:
Quant. X: 15
Quant. Y: 10
Space: 5

so the script places 15 copies of the object(s) (including the master-object(s) itself) in the horizontal, 10 copies in the vertical on the sheet or whereever you want them. you can select a frame around all the objects (for my pc60) and cutmarks.
Reply With Quote
Reply


Currently Active Users Viewing This Thread: 1 (0 members and 1 guests)
 
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is On
HTML code is Off

Forum Jump

Similar Threads
Thread Thread Starter Forum Replies Last Post
NEED HELP ON CORELDRAW SCRIPT. FREE PHOTO CALENDAR IF U CAN! johnlfitz CorelDRAW/Corel DESIGNER VBA 8 06-06-2008 22:59
problem with script or macro. Dr Morpheus CorelDRAW/Corel DESIGNER VBA 1 12-02-2004 13:46
Cropmarks script Peter Macros/Add-ons 0 06-11-2003 03:51
Curve2Line script ! jobar CorelDRAW/Corel DESIGNER VBA 1 14-08-2003 11:40
Corel 10 file conversion script doesn't convert files Kevin CorelDRAW CS 0 13-04-2003 20:28


All times are GMT -5. The time now is 10:34.


Powered by vBulletin® Version 3.8.1
Copyright ©2000 - 2023, Jelsoft Enterprises Ltd.
Copyright © 2011, Oberonplace.com