[Kotwpizamie]

Potrzebuję zautomatyzować pisanie kwot liczbowych na słowne w wordzie. Zamiana przez /*cardtext jest słaba, bo nie odmienia złotówek i nie dodaje "jeden" przy pojedynczych tysiącach, więc ostatecznie trzeba i tak strasznie dużo ręcznie poprawiać. Znalazłem fajne VBA do excela, idealne, robi wszystko, problem w tym, że formatowanie tekstu w excelu to męczarnia - czy da się to jakoś przemycić do worda albo jest jakiś inny sposób na taką konwersję?
#excel #word #vba

[taju]

@Kotwpizamie:
funkcja z tej strony, ktora mi wyslales:
https://akademia-vba.pl/2011/04/24/odwieczny-problem-funkcja-slownie/
bedzie dzialac w Wordzie rowniez.
tylko musisz sobie stworzyc makro i podpiac je pod przycisk lub skrot klawiaturowy, by funkcje wywolywac z jakims parametrem (liczba, ktora chcesz zamienic na slowa). Przykladowo, dla wybranego tekstu (Selection) takie makro moze wygladac np. tak:

Sub zamiennaslowa()
Dim sLiczba As String
sLiczba = Selection.Text
Dim sWynikslownie As String
sWynikslownie = Slownie(sLiczba)
Selection.Text = sLiczba + "

[Kotwpizamie]

@taju: Wszystko działa idealnie, dokładnie o to mi chodziło. Dziękuję!