Funcția TITLECASE() este concepută pentru a converti textul existent în titlu case și returnează un set de cuvinte sub forma: „Function for Title Case”.
Codul funcției Title Case înlocuiește separatorii precum cratimele și liniuțele de subliniere cu spații, convertește toate cuvintele în majuscule și convertește conjuncțiile în litere mici.
Title Case poate fi util pentru corectarea cazurilor în titlurile de știri, titlurile articolelor de pe site sau titlurile videoclipurilor YouTube.
TITLECASE() este similar cu funcția standard PROPER(), cu excepția faptului că conjuncțiile nu sunt scrise cu majuscule.
Iată codul macro pentru a crea o funcție personalizată care poate afișa text ca titluri (Title Case) în LibreOffice Calc.
Deschideți meniul Tools - Macros - Edit Macros..., selectați Module1 și copiați următorul text în modul:
Function TitleCase(ByVal str As String) As String
'moonexcel.com.ua
Dim words As Variant
Dim FCalc As Object
FCalc = CreateUnoService("com.sun.star.sheet.FunctionAccess")
oddWordsLat = "A|An|And|As|At|But|By|En|For|If|In|Is|Of|On|Or|The|To|Vs|Via"
oddWordsCyr = "І|Як|На|Але|Для|Якщо|В|Чи|До|Через|Та|Від|Під|Над|И|Как|Но|То|Или|От|Под|К"
words = Split(oddWordsLat + "|" + oddWordsCyr,"|")
str = FCalc.callFunction("PROPER", Array(str))
For i = LBound(words) To UBound(words)
pattern = "(?!^)\b" + words(i) + "\b"
replacement = LCase(words(i))
str = FCalc.callFunction("REGEX", Array(str,pattern,replacement,"g"))
Next i
TitleCase = str
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 TITLECASE() setând extensia " YouLibreCalc.oxt „. După aceea, această funcție va fi disponibilă în toate fișierele care vor fi deschise în LibreOffice Calc.