Półautomatyczny synonimizator VBA

Chcesz się wyróżnić, pracować szybciej, zarabiać więcej lub mieć chociaż trochę wolnego czasu? Jeśli tak, programowanie i skryptowanie musi stać się dla Ciebie codziennością lub, inaczej mówiąc, pierwszą rzeczą, która przychodzi do głowy, gdy powierzone zadania okazują się powtarzalne.

W moim przypadku padło na teksty synonimizowane, których ręczne tworzenie jest nie tylko monotonne, ale też czasochłonne. Okazuje się, że mechaniczne wstawianie słów bliskoznacznych można w dużym stopniu zautomatyzować prostym makrem VBA, opartym na Tezaurusie wbudowanym w MS Word. Jak to zrobić?

  • Na początku potrzebujemy przygotować sobie środowisko, uruchamiając zakładkę Deweloper. W oknie programu przechodzimy do tworzenia nowego makra.

capture1

  • Aby stworzyć nowe makro, uzupełniamy nazwę, klikamy w przycisk Utwórz, a program przenosi nas do edycji kodu makra. Zmieniamy tutaj pola zakreślone na czarno i niebiesko, a następnie dodajemy nowy formularz, klikając prawym przyciskiem w polu czerwonym NoweMakro -> Insert -> UserForm::

  • Wybieramy z Toolboxa ListBox (czerwone) i rysujemy dowolne wymiary w oknie.capture5 Następnie robimy to samo z CommandButton (niebieski). Teraz możemy ustawić odpowiednie wymiary w tabeli (czarny). W tym celu zaznaczamy okno, klikając na przykład na jego górną belkę, a następnie edytujemy dane w tabeli. ‚Name’ musi być zgodne z tym, które wpisaliśmy wyżej (NoweOkno):
    • Name: NoweOkno
    • Caption: Mieszarka
    • Height: 400
    • Width: 130
  • Ustawienie odpowiednich wymiarów i położenia ListBoxa oraz CommandButtona pozostawiam Wam. Kiedy nasze okno jest już gotowe, możemy zająć się edycją i tworzeniem kodu. Klikamy prawym przyciskiem w NoweOkno (zielone), a następnie View Code, by edytować kod, który ma się wywołać przy uruchomieniu. Pamiętajcie, by zamiast ‚Wymieszaj’ w pierwszej linijce wpisać zadaną nazwę CommandButtona.

  • Możemy teraz zapisać zmiany i zamknąć edytor. Zaznaczając słowo „śmiesznego” w przykładzie poniżej i uruchamiając makro, uzyskujemy następujący efekt:

capture7

Zainteresowanym polecam jeszcze dodać możliwość wycofania się klawiszem Escape.

Dodaj komentarz

Twój adres email nie zostanie opublikowany. Pola, których wypełnienie jest wymagane, są oznaczone symbolem *