Corel FORUM

[conquistador]

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]

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]

[changela]

narzędzia- makra

[wawel]

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]

[altf4]

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.