Iako ga se ne bih stideo, samo da pojasnim da kod nije moj, preuzet je sa sajta kako je navedeno i samo je prilagođen za konkretan slučaj m3
Hvala na doprinosu temi. Program koji si priložio je interesantan i siguran sam da mnogi mogu da nauče puno iz njega, a da li je dobar za konkretan problem nisam siguran, jer pokretač teme nije detaljnije opisao problem.
Šta ćemo sa slučajevima M33 ili adm37 ili East Street 4 ... ? Po meni nema smisla prebacivati sve brojeve u superscript, nego samo određene reči. To je već pitanje konkretnog problema.
Inače, kad se izbace logički uslovi, petlje suština je ista i u tvom programu:
Code:
s.Characters(i, 1).Font.Superscript = True
Meni se čini da je to sasvim dovoljno detalja da neko kome ovo treba doda potrebnu logiku i prilagodi makro prema sopstvenim potrebama.
Kad smo već pokrenuli priču oko zamene može se zamena i ubaciti u AutoCorrect listu pa će uvek prilikom unosa m3 (kao posebna reč) da se prevede u željeni oblik - ali ovo važi samo u slučaju naknadnog, ručnog unosa.
Nije to loše Rembrante, samo što ne bi dodao još malo boje?