Detectare text scris cu Caps Lock
Detectare text scris cu Caps Lock
Buna ziua,
Word 2010.
Am un text selectat si nu reusesc sa gasesc o comanda vba care sa analizeze textul si sa-mi afiseze un mesaj ca textul selectat este scris cu Caps Lock.
Am gasit doar ceva care imi spune daca am activata tasta Caps Lock dar asta nu ma ajuta cu nimic.
Are cineva vreo idee?
Word 2010.
Am un text selectat si nu reusesc sa gasesc o comanda vba care sa analizeze textul si sa-mi afiseze un mesaj ca textul selectat este scris cu Caps Lock.
Am gasit doar ceva care imi spune daca am activata tasta Caps Lock dar asta nu ma ajuta cu nimic.
Are cineva vreo idee?
Re: Detectare text scris cu Caps Lock
Buna seara
Un punct de plecare ar putea fi un cod de genul:
Acesta testeaza fiecare caracter al selectiei si, daca este scris cu majuscule, aduna cu 1 valoarea stocata in variabila result. La final compara rezultatul variabilei result cu totalul numarului de caractere selectat in prealabil. Daca cele doua valori sunt egale atunci inseamna ca toate caracterele din selectie sunt scrise cu majuscule si veti primi mesajul adecvat. Daca nu, nu se intampla nimic.
In aceasta forma, daca in cadrul selectiei sunt si alte caractere (spatii goale, alte semne de punctuatie) atunci nu va apare niciun mesaj chiar daca textul propriuzis e scris doar cu majuscule.
IP
Un punct de plecare ar putea fi un cod de genul:
Cod: Selectaţi tot
Sub TestForUcase()
'IPP - 09.04.2015
Dim i As Integer
Dim result As Integer
result = 0
For i = 1 To Len(Selection)
If Selection.Characters(i) = UCase(Selection.Characters(i)) Then
result = result + 1
End If
Next i
If Len(Selection) = result Then
MsgBox "Toate literele selectate sunt scrise cu majuscule"
End If
result=0
End Sub
In aceasta forma, daca in cadrul selectiei sunt si alte caractere (spatii goale, alte semne de punctuatie) atunci nu va apare niciun mesaj chiar daca textul propriuzis e scris doar cu majuscule.
IP
Nu aveţi permisiunea de a vizualiza fişierele ataşate acestui mesaj.
Re: Detectare text scris cu Caps Lock
Subiect rezolvat, se poate inchide.
Multumesc frumos.
Multumesc frumos.