Elektroda.pl
Elektroda.pl
X
Proszę, dodaj wyjątek www.elektroda.pl do Adblock.
Dzięki temu, że oglądasz reklamy, wspierasz portal i użytkowników.

Makro wstawianie do etykiet

robert55555 03 Cze 2015 16:50 795 15
  • #1 03 Cze 2015 16:50
    robert55555
    Poziom 7  

    Witam. Nie wiem jakie mam napisać makro do worda. "Etykieta dla sprawy_ABBA" generuje się w systemu. Ma rozszerzenie "rtf".Chodzi mi o napisanie makra które pkt1) Wstawia Znak BP w linijce z numerem sprawy. wersje pierwotnej 0112-63400-0112-112-00000414/14, makro ma Wstawić "BP" przed "0112"
    pkt2)kopiuje nr producenta "069631580" (w każdej etykiecie inny jest ten numer, ale zawsze z tej częsci etykliety na kopiować ten numer) i wstawić w linijke która ma wyglądać następująco "BP 0112-63400-069631580".
    pkt3) ma wstawiać następującą treść "EWIDENCJA PRODUCENTÓW/".

    Nie wiem jak mam to zrobić. Proszę o pomoc. Z góry dziękuje.

    0 15
  • #4 04 Cze 2015 13:08
    robert55555
    Poziom 7  

    Witam. Dziś nie mam możliwości sprawdzenia. Jutro prędzej lub poniedziałek dopiero. Z góry bardzo dziękuję Panu za pomoc. Odezwę sie czy dziala. Jeszcze raz dziękuję. Milego dnia zycze. Pozdrawiam.

    0
  • #5 08 Cze 2015 12:16
    robert55555
    Poziom 7  

    Witam. Dziekuje ślicznie za pomoc. Makro chodzi super. Mam pytanie odnośnie tego makra. Jak mamy znak sprawy 0112-63400-0112-00000414/14 a powinnismy mieć BP 0112-63400-0112/069631580/14. Nie wiem jak mam zamienić ten znak"-" na ten znak "/". Moj błąd za nie do patrzenie.

    0
  • Pomocny post
    #6 08 Cze 2015 13:31
    NAXIN
    Poziom 22  

    Stara formuła
    [0-9]{4}-[0-9]{8}/[0-9]{2}
    Nowa (jest już 9 znaków w tym ciągu)
    [0-9]{4}/[0-9]{9}/[0-9]{2}

    1
  • #7 08 Cze 2015 14:01
    robert55555
    Poziom 7  

    Nie gra. Proszę zwrócić na tresc mojego ostatniego postu,jaki zrobilem. Pozwoliłem sobie na mala przeróbki, i zrobilem to tak [0-9]{8} dlaczego tak bo ma wygladac zapis BP 0112-63400-0112/069631580/14. Po mojej edycji wygląda BP 0112-63400-0112-069631580/14, sęk oten znak "-" po drugim 0112. Jak ma sie zmienić - na /. Tego nie umiem z edytować.

    0
  • Pomocny post
    #8 09 Cze 2015 07:57
    NAXIN
    Poziom 22  

    Żeby nie grzebać już w schowku to najprościej jest zmodyfikować warunek i dopisać "/".
    Np.:

    Kod: vbscript
    Zaloguj się, aby zobaczyć kod

    1
  • #9 09 Cze 2015 10:09
    robert55555
    Poziom 7  

    Dzięki. Wstawiać wstawia znak, ale chodzi by znak "-" zamienilo na znak"/" .

    Dodano po 40 [minuty]:

    Przepraszam wszystko jest ok.dziekuje

    0
  • #10 10 Cze 2015 19:20
    robert55555
    Poziom 7  

    Mam pytanie, czy za pomocą makra mozna zmniejszyć ta etykieta do rozmiaru 13na 13cm. Oczywiście dane z tej etykiety musza byc czytelne. Jedna etykieta ma znajdować na 1 kartce worda,taka etykieta będzie do wycięcia. Jest taka możliwość by vba cos takiego zrobilo?

    0
  • #11 11 Cze 2015 09:38
    NAXIN
    Poziom 22  

    Napisałem takie coś:

    Kod: vbscript
    Zaloguj się, aby zobaczyć kod

    Kilka uwag:
    część 1 - dopasowanie obszaru według strony (chyba w miarę jasne),
    część 2 - zmniejszanie czcionki (efekt podobny do CTRL + [), jednakże musi być font.shrink bo font.size-1 się czasami zawiesza. Liczba stron musi być odświeżana w pętli przy każdej iteracji, gdyż Word automatycznie tego nie przelicza. I tak sobie zmniejsza i zmniejsza, aż całość będzie zajmowała max 1 stronę :)

    0
  • #12 11 Cze 2015 11:00
    robert55555
    Poziom 7  

    Dzięki za makro. Jest problem bo vba dzieli mi etykietę na 2 części. A nie oto mi Chodzilo.wszystko zmniejsza sie do wymiaru 13na 13. Zalacznika nie sprawdzałem moze tam działa ok a u mnie w pracy jest cos nie tak. Jak cos to będę sie odzywal.

    0
  • #13 11 Cze 2015 12:07
    NAXIN
    Poziom 22  

    Cytat:
    "Etykieta dla sprawy_ABBA" generuje się w systemu.

    Rzeczywiście makro nie będzie poprawnie działało na wygenerowanym przez System dokumencie. Myślę, że to jest odpowiedni moment aby wystosować maila do Twórcy Systemu i wspomnieć, że generowane przez System pliki są bezużyteczne do dalszej obróbki. Ów System raczy generować dokument w postaci niesformatowanej tabelki, w której znajdują się pola rysunków, w których znajdują się pola tekstowe, zaś do danych, które nie są oznaczane za pomocą jakichkolwiek etykiet/pól, dostęp możliwy jest jedynie przez wyrażenia regularne. Nie sądzę, że którykolwiek z użytkowników tego forum podejmie się dalszego rzeźbienia w... :)

    Czy Twórca Systemu stworzył możliwość eksportu tych danych do innych formatów (np.:XML), dzięki czemu można by je importować do własnego szablonu Worda?

    0
  • #14 11 Cze 2015 14:15
    robert55555
    Poziom 7  

    Zapisanie etykietę w wordzie z roszerzeniem.doc lub .docx nic nie daje. Nie mam pomyslu jak mozna obejść "etykietę" aby makro dzialalo. Nie sadze aby twórca systemu chcial zmienić zapis.

    0
  • #15 11 Cze 2015 14:57
    NAXIN
    Poziom 22  

    Rozumiem :( No to jeszcze jedna możliwość przychodzi mi do głowy, aby nie łapać się za formatowanie tych elementów... Po prostu drukować do PDF-a o rozmiarze 13x13cm z dopasowaniem do rozmiaru strony.

    0
  • #16 12 Cze 2015 21:50
    robert55555
    Poziom 7  

    Niestety w PDF-ie tez sie nie da. Mam inny pomyśl. Dane siagnac do exela, lub worda przez makra lub funkcje i wtedy spróbować z makrem. Nie wiem czy to dobry pomyśl?

    0