La funzione TITLECASE() è progettata per convertire il testo esistente nel titolo case e restituisce un insieme di parole nella forma: "Function for Title Case".
Il codice della funzione Title Case sostituisce i separatori come trattini e caratteri di sottolineatura con spazi, converte tutte le parole in maiuscolo e converte le congiunzioni in minuscolo.
Title Case può essere utile per la correzione delle maiuscole e minuscole nei titoli delle notizie, nei titoli degli articoli del sito o nei titoli dei video di YouTube.
TITLECASE() è simile alla funzione standard PROPER(), tranne per il fatto che le congiunzioni non sono in maiuscolo.
Ecco il codice macro per creare una funzione personalizzata in grado di visualizzare il testo come titoli (Title Case) in LibreOffice Calc.
Apri il menu Tools - Macros - Edit Macros..., seleziona Module1 e copia il seguente testo nel modulo:
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
Quindi chiudi Macro Editor, torna a LibreOffice Calc e utilizza la nostra nuova funzione in qualsiasi cella.
Puoi anche utilizzare la funzione TITLECASE() impostando l'estensione " YouLibreCalc.oxt ". Successivamente, questa funzione sarà disponibile in tutti i file che verranno aperti in LibreOffice Calc.