How to Insert page numbers in CorelDRAW

Q: How does each version CorelDRAW Insert page numbers?

How to insert the page number in the CORELDRAW9, let the page number in the lower right corner

A: CorelDRAW itself without directly inserting page number function, this cannot but say is a big regret. To achieve this function, has been basically manual to complete: A few dozens of pieces of fine, hundreds of or even thousands of books when the time is more difficult.

Coreldraw 11 later version in the "Tool-vb Execution" item, there is a direct "page insertion plug-in", but the function is relatively single, only allow the design of some of the basic attributes of text, for want to do a little bit of pattern on the page, or manual Ctrl + C, cbrl+v. Accustomed to also fast, you can use the bar code automatic insertion and manual combination, I believe CorelDRAW operation Skilled, hundreds of pages is not difficult.

Specific steps to operate:

After you finish the version, you can then execute this VBA macro.

Select, "Tools/visual basic/Execute Macros"

Dropdown menu "Macros in" select "All Standard Projects"

Above "Macros Name" select "Corel macros,pagenumbering"

Then press "Execute"

The next window depends on what you need to set it up.

"#" represents the page number

"*" indicates total pages

If you enter all *;this#

The page number shows All8;this1, (assuming that the file has 8 pages, page number on page 1th)

Note: The layout seems to be set only in the A4, other sizes seem to set their own position!!

"Linsong" to provide suitable Coreldraw12: Open the VBA editor to delete the following sentences, you can fit each size, you may try!

D.unit = Coreldrawrinch

D.drawingoriginx =-4.25

D.drawingoriginy =-5.5

Insert Page number in Coreldraw 9

Finish the whole book first, the page number is ignored. Select Menu: Tool-visual basic-Execute Macros-dropdown menu macros in: Select all Standard projects above macros Name: Select Corel Macros,pagenumbering followed by execution. The next pop-up window set some of the basic attributes of the text to be sure.

There is no such plug-in in Coreldraw9, and a custom script is required. The code is as follows:

Dim txt$ (etxt$) for I=1 to J=1 to txt$ (
i) =right ("A" & j+ (i-1) *50 , 3)
etxt$ (i) =etxt$ (i) +CHR (i) + txt$ (i)
NEXT J
withobject "Coreldraw.automation.9"
X&A mp;=-873448+ (i-1) *150000
y&=1280406
. Createartistictext CHR (64+i) +etxt (i), x&, y&
. Recorderedittextcharatbributes 0, 0, "Arial", 7, 160, 0, 0, 0, 0, 0, 0, 1000, 0, 0 end
Withobject
Ne XT I