TOP

Title Case Funzione per LibreOffice Calc

TITLECASE() Descrizione

La funzione TITLECASE() è progettata per convertire il testo esistente nel formato dell'intestazione 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.


StarBASIC Codice per TITLECASE()

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.

Utilizzando l'estensione

Puoi anche utilizzare la funzione TITLECASE() installando l'estensione gratuita YouLibreCalc.oxt o la sua versione completa YLC_Utilities.oxt .

Successivamente, questa funzione sarà disponibile in tutti i file che verranno aperti in LibreOffice Calc.