Detectare text scris cu Caps Lock

Ce este nou in Microsoft Word 2010?
Informatii despre cum se utilizeaza Microsoft Word 2010
Editare, formatare, automatizare de documente
Închis
ccirtina
Mesaje: 280
Membru din: Lun Oct 11, 2010 9:49 pm
Localitate: Craiova

Detectare text scris cu Caps Lock

Mesaj de ccirtina » Joi Apr 09, 2015 11:50 am

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?

IPP
Moderator
Moderator
Mesaje: 4196
Membru din: Mie Iul 29, 2009 7:26 am
Localitate: Cluj-Napoca

Re: Detectare text scris cu Caps Lock

Mesaj de IPP » Joi Apr 09, 2015 9:08 pm

Buna seara

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
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
Nu aveţi permisiunea de a vizualiza fişierele ataşate acestui mesaj.

ccirtina
Mesaje: 280
Membru din: Lun Oct 11, 2010 9:49 pm
Localitate: Craiova

Re: Detectare text scris cu Caps Lock

Mesaj de ccirtina » Vin Apr 10, 2015 5:22 am

Subiect rezolvat, se poate inchide.
Multumesc frumos.

Închis

Înapoi la “Intrebari despre Word 2010”