Die Funktion TITLECASE() dient dazu, vorhandenen Text in Titelcase umzuwandeln und gibt eine Reihe von Wörtern in der Form „Function for Title Case“ 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 auch die Funktion TITLECASE() verwenden, indem Sie die Erweiterung „ YouLibreCalc.oxt ". Danach ist diese Funktion in allen Dateien verfügbar, die in LibreOffice Calc geöffnet werden.