Zobacz temat - Numeracja stron w CorelxDraw X3

Corel FORUM
Forum użytkowników programów firmy Corel. Grafika wektorowa, rastrowa i obróbka zdjęć cyfrowych

Makra - Numeracja stron w CorelxDraw X3

conquistador - 18 Styczeń 2011, 12:27
Temat postu: Numeracja stron w CorelxDraw X3

Witam serdecznie,

Debiutuje na tym forum i rownież w tematyce Corela,ale zycie nie lubi próżni, a firma stawia coraz to nowe wymgania.

Nie moge sobie poradzić z na pozór banalna rzeczą, z odpowiednim ponumerowniaem stron w plikach corela.

W pomocy CORELA wyczytalem,że numery stron nadaje sie w zakładce ustawień drukarskich, ale sprowadza sie to do wybrania opcji:
-drukuj numery stron
- w obrębie strony ( sic)

Chcialbym mieć natomiast możliwosc umiesczania numerów stron analogiczną lub zblizona do opcji ktore posiada chociazby WORD.

Proszę o pomoc

wawel - 18 Styczeń 2011, 15:11

W programie jest makro do numeracji stron, sa tez makra stworzone przez zew. osoby.
Majace rozszerzone mozliwosci w stosunku do tego co oferuje Corel.

CorelDRAW to tez nie jest Word i do innych zadan jest stworzony, nie wiem co tam chcesz robic, ale nie nalezy oczekiwac po Draw tego co po edytorze tekstu czy programie do skladu gdzie numerowanie, sekcje numeracji, generowanie list, rozdzialow itd. sa naturalne.
pozdr.

conquistador - 18 Styczeń 2011, 15:46

wawel napisał/a:

OK, dzieki za odp. a możesz mi jescze powiedziec gdzie sa te makra?

changela - 18 Styczeń 2011, 15:51

narzędzia- makra

wawel - 19 Styczeń 2011, 10:06

znajdziesz je poza programem tu:
http://www.antipoetics.com/?cat=20
i tu http://jeff-harrison.unle...h-vba-macro.asp

to drugie moge polecic :-)

W samym programie: narzedzia -> visual basic -> uruchom -> macros in nazwa PageNumbering

conquistador - 19 Styczeń 2011, 15:12

wawel napisał/a:

znajdziesz je poza programem tu:
http://www.antipoetics.com/?cat=20
i tu http://jeff-harrison.unle...h-vba-macro.asp

to drugie moge polecic :-)

W samym programie: narzedzia -> visual basic -> uruchom -> macros in nazwa PageNumbering

Serdeczne dzięki. Śmiga jak ta lala :-D

W pliku jest jeszcze opis jak to zrobic krok po kroku.

altf4 - 5 Listopad 2014, 23:32

Szukając rozwiązania podobnego problemu napisałem prosty skrypt, który wstawia numer strony w obiekt tekstu artystycznego, który wcześniej nazywamy PN (w menedżerze obiektów polecenie "zmień nazwę") i umieszczamy w wybranym miejscu. Taki obiekt można powielać, umieszczać w kadrze itp. Kod poniżej - być może komuś się przyda:

Kod:

'Makro wpisuje numer strony na tekst artystyczny o nazwie PN
Public Sub NumerujStrony()

Dim PN As Shape
Dim PNr As ShapeRange
Dim pc, i As Integer

pc = ActiveDocument.Pages.Count

For i = 1 To pc
Set PNr = ActiveDocument.Pages(i).FindShapes("PN", cdrTextShape)
For Each PN In PNr
PN.Text.Story = CStr(i)
Next PN
Next i

MsgBox ("Gotowe! Strony: " + CStr(pc))

End Sub

Skrypt to pętla, która "leci" przez strony dokumentu i w napotkany obiekt tekstu artystycznego wrzuca numer strony.