Die Funktion TITLECASE() dient dazu, vorhandenen Text in das Überschriftenformat umzuwandeln und gibt eine Reihe von Wörtern in der Form zurück:
Der Funktionscode Title Case ersetzt Trennzeichen wie Bindestriche und Unterstriche durch Leerzeichen, wandelt alle Wörter in Großbuchstaben und Konjunktionen in Kleinbuchstaben um.
Title Case kann für die Groß-/Kleinschreibung in Schlagzeilen, Website-Artikeltiteln oder YouTube-Videotiteln nützlich sein.
TITLECASE() ähnelt der Standardfunktion PROPER(), außer dass Konjunktionen nicht großgeschrieben werden.
Hier ist der Makrocode zum Erstellen einer benutzerdefinierten Funktion, die Text als Titel (Title Case) in LibreOffice Calc anzeigen kann.
Öffnen Sie das Menü Tools - Macros - Edit Macros..., wählen Sie Module1 aus und kopieren Sie den folgenden Text in das 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
Schließen Sie dann Macro Editor, kehren Sie zu LibreOffice Calc zurück und verwenden Sie unsere neue Funktion in einer beliebigen Zelle.
Sie können die Funktion auch nutzen TITLECASE() durch die Installation der kostenlosen Erweiterung YouLibreCalc.oxt oder die Vollversion YLC_Utilities.oxt .
Danach steht diese Funktion in allen Dateien zur Verfügung, die in LibreOffice Calc geöffnet werden.