Corel FORUM

[jsq]

Mam założony szablon do wykonywania instrukcji.
Zawiera on w tabelce wszystkie potrzebne dane i tak się zastanawiam się, czy jest (myślę, że tak) zrobienie jakiegoś makra, które by wstawiało w odpowiednie pole aktualną datę.
Druga sprawa to numery stron równiez umieszczone w jednym z pól. Standardowo jest wpis " Strona 1/1" - czy jest możliwość aby np. po zduplikowaniu strony automatycznie wstawiło się strona 1/2 i 2/2 itd.

[grzjanik]

Witam.

Jsq abyś miał w swoim szablonie automatyczną datę musisz wykonać trzy rzeczy:

1. Utworzyć w nim tekst artystyczny i w Menedżerze obiektów nazwać go "data" (zał. plik data1).

2. Wpisać kawałek kodu w konkretne miejsce (zał. plik data2).

Po kolei:
- Menu Tools/Macro/Macro Editor...
- po lewej znajdujesz "VBAProject"
- rozwijasz i znajdujesz "ThisDocument"
- na środku wpisujesz kod:

Kod:

Private Sub Document_Open()     Dim s As Shape, strD$, p As Page     On Error Resume Next     For Each p In ActiveDocument.Pages         p.Activate         strD = CStr(Format(VBA.Date, "dd-mm-yyyy") & " r.")         Set s = ActiveLayer.Shapes.FindShape("data", cdrTextShape)         s.Text.Story.Text = strD     Next p     ActiveWindow.Refresh     Application.Refresh End Sub

- po lewej u góry wciskasz ikonkę zapisu makra
- zamykasz Macro Editor

3. Zapisujesz swój szablon z polem daty.

Od teraz za każdym otworzeniem tego pliku Corel zapyta czy włączyć makra.
Kiedy się użytkownik zgodzi makro będzie szukało pola "data". Kiedy je znajdzie wstawi aktualną datę.

W razie pytań pisz.
Pozdrawiam.
GrzJanik

---

data2.png wpisanie kodu dla danego pliku

Pobierz Plik ściągnięto 352 raz(y) 12.97 KB

data1.png zmiana nazwy pola

Pobierz Plik ściągnięto 364 raz(y) 5.4 KB

[grzjanik]

Niestety nie wiem jak to wprowadzić automatycznie po dodaniu strony, jednak wiem jak to zrobić na przycisk, który sam musisz wcisnąć po dodaniu strony.

Jeśli chcesz aby w dokumencie był aktualizowany numer strony oraz ich ilość musisz:

1. Utworzyć w nim tekst artystyczny i w Menedżerze obiektów nazwać go "strona".
2. Wpisać kawałek kodu w konkretne miejsce (zał. plik strona).

Po kolei:
- Menu Tools/Macro/Macro Editor...
- po lewej znajdujesz "GlobalMacros"
- rozwijasz i znajdujesz "RecordedMacros", dwuklik
- na środku wpisujesz kod:
Kod:

Kod:

Sub OdswiezNumerStrony()     Dim s As Shape, p As Page     On Error Resume Next     For Each p In ActiveDocument.Pages         p.Activate         Set s = ActiveLayer.Shapes.FindShape("strona", cdrTextShape)         s.Text.Story.Text = ActivePage.Index & "/" & ActiveDocument.Pages.count     Next p     ActiveWindow.Refresh     Application.Refresh End Sub

- po lewej u góry wciskasz ikonkę zapisu makra
- zamykasz Macro Editor

3. Zapisujesz swój szablon z polem strony.

Od teraz za każdym uruchomieniem makra będzie szukało pola "strona". Kiedy je znajdzie wstawi aktualne "strona/ilość stron". Oczywiście sugeruję zrobić do tego guzik.

W razie pytań pisz.
Pozdrawiam.
GrzJanik

---

strona.png aktualizacja numeru strony

Pobierz Plik ściągnięto 377 raz(y) 24.13 KB