TOP

Title Case Funktion für LibreOffice Calc

TITLECASE() Beschreibung

Die Funktion TITLECASE() dient dazu, vorhandenen Text in Titelcasetbl 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.


BASIC Code für TITLECASE()

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.