Funcția SENTENCECASE() este concepută pentru a converti textul existent în format de propoziție și returnează un set de cuvinte sub forma: „Sentence case function”.
Sentence Case despart liniile separate prin puncte, semne de exclamare sau semne de întrebare în propoziții separate. Apoi, convertește toate cuvintele în minuscule, cu excepția primei litere din propoziție și apoi îmbină toate elementele într-un singur text continuu.
Funcția SENTENCECASE() poate fi utilă pentru corectarea literelor din propoziții de-a lungul textului.
Iată codul macro pentru a crea o funcție personalizată care poate justifica cuvintele în propoziții (Sentence Case) în LibreOffice Calc.
Deschideți meniul Tools - Macros - Edit Macros..., selectați Module1 și copiați următorul text în modul:
Function SentenceCase(ByVal str As String) As String
'moonexcel.com.ua
Dim sentences As Variant
Dim i As Integer
Dim FCalc As Object
FCalc = CreateUnoService("com.sun.star.sheet.FunctionAccess")
str = Replace(str,"-"," ")
str = Replace(str,"_"," ")
str = FCalc.callFunction("TRIM", Array(str))
str = LCase(str)
str = FCalc.callFunction("REGEX", Array(str,"([.!?])(\s)(\w)","$1#$3","g"))
sentences = Split(str, "#")
For i = LBound(sentences) To UBound(sentences)
sentences(i) = UCase(Left(sentences(i), 1)) & Mid(sentences(i), 2)
Next i
SentenceCase = Join(sentences," ")
End Function
Apoi închideți Macro Editor, reveniți la LibreOffice Calc și utilizați noua noastră funcție în orice celulă.
De asemenea, puteți utiliza funcția SENTENCASE() setând extensia „ YouLibreCalc.oxt „. După aceea, această funcție va fi disponibilă în toate fișierele care vor fi deschise în LibreOffice Calc.