ASCII vrednost

Pomoč pri delu z MS Wordom
Odgovori
RTM
Prispevkov: 39
Pridružen: Po Mar 16, 2015 4:29 pm

ASCII vrednost

Odgovor Napisal/-a RTM »

VBA makro ukaz vrne desetiško vrednost zapisa za utripačem:

Koda: Izberi vse

Public Sub KateriZnak()
MsgBox "ASCII vrednost: " & Asc(Selection)
End Sub
Iščem, guglam pa ne najdem rešitve, da bi namesto le enega znaka ustrezen ukaz vrnil vrednosti npr. za 5 znakov za utripačem.

Za vsako idejo, rešitev bom hvaležen :oops:
admin
Site Admin
Prispevkov: 3687
Pridružen: Sr Jul 20, 2005 10:06 pm

Re: ASCII vrednost

Odgovor Napisal/-a admin »

Pozdravljeni,

Izbor je sestavljen iz enega ali več znakov in vse kar je potrebno narediti je, da se v zanki sprehodite skozi vse znake:

Koda: Izberi vse

Public Sub KateriZnak()
  Dim znak, i
  
  i = 1
  For Each znak In Selection.Characters
    MsgBox "ASCII vrednost znaka[" & i & " - " & znak & "] je " & Asc(znak)
    i = i + 1
  Next
End Sub
lp,
Matjaž Prtenjak
Administrator
RTM
Prispevkov: 39
Pridružen: Po Mar 16, 2015 4:29 pm

Re: ASCII vrednost

Odgovor Napisal/-a RTM »

G. Matjaž - najlepša hvala.

Potreboval sem 3 minute, da sem pogruntal kako makro deluje.
Preblisk in rešitev je bila "preprosta kot kranjska klobasa": treba je označiti besedilo!

Še 1x hvala in mirno karanteno :!:
Mladen
Odgovori