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

FAQFAQ  SzukajSzukaj  UżytkownicyUżytkownicy  GrupyGrupy
RejestracjaRejestracja  ZalogujZaloguj  DownloadDownload

Poprzedni temat «» Następny temat
Przesunięty przez: restauro
17 Kwiecień 2018, 13:33
plik szablonu cdt: automatyczna data, strona
Autor Wiadomość
jsq 
Bywalec


Wersja CorelDRAW: 19.1
Dołączył: 15 Cze 2010
Posty: 25
Skąd: Olecko
Wysłany: 26 Marzec 2018, 09:44   plik szablonu cdt: automatyczna data, strona

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 
Bywalec
GrzJanik


Wersja CorelDRAW: X7
Pomógł: 2 razy
Wiek: 51
Dołączył: 16 Lis 2016
Posty: 34
Skąd: Łódź
Wysłany: 17 Kwiecień 2018, 12:40   Auto data

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 328 raz(y) 12.97 KB

data1.png
zmiana nazwy pola
Pobierz Plik ściągnięto 346 raz(y) 5.4 KB

Ostatnio zmieniony przez grzjanik 17 Kwiecień 2018, 15:43, w całości zmieniany 3 razy  
 
 
grzjanik 
Bywalec
GrzJanik


Wersja CorelDRAW: X7
Pomógł: 2 razy
Wiek: 51
Dołączył: 16 Lis 2016
Posty: 34
Skąd: Łódź
Wysłany: 17 Kwiecień 2018, 12:53   Auto numer strony

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 353 raz(y) 24.13 KB

 
 
Wyświetl posty z ostatnich:   
Odpowiedz do tematu
Nie możesz pisać nowych tematów
Nie możesz odpowiadać w tematach
Nie możesz zmieniać swoich postów
Nie możesz usuwać swoich postów
Nie możesz głosować w ankietach
Nie możesz załączać plików na tym forum
Możesz ściągać załączniki na tym forum
Dodaj temat do Ulubionych
Wersja do druku

Skocz do:  

Powered by phpBB modified by Przemo © 2003 phpBB Group
Nowe zasady dotyczące cookies. Wykorzystujemy pliki cookies, aby nasz serwis lepiej spełniał Państwa oczekiwania. Można zablokować zapisywanie cookies, zmieniając ustawienia przeglądarki.
         
Strona wygenerowana w 0.14 sekundy. Zapytań do SQL: 16