Sentence Case Funzione per LibreOffice Calc

SENTENCECASE() Descrizione

La funzione SENTENCECASE() è progettata per convertire il testo esistente in formato frase e restituisce un insieme di parole nella forma: "Sentence case function" .

Sentence Case suddivide le righe separate da punti, punti esclamativi o interrogativi in frasi separate. Quindi converte tutte le parole in minuscolo tranne la prima lettera della frase e quindi combina tutti gli elementi in un unico testo continuo.

La funzione SENTENCECASE() può essere utile per correggere il caso delle lettere nelle frasi in tutto il testo.

StarBASIC Codice per SENTENCECASE()

Ecco il codice macro per creare una funzione personalizzata in grado di giustificare maiuscole e minuscole nelle frasi (Sentence Case) in LibreOffice Calc.

Apri il menu Tools - Macros - Edit Macros..., seleziona Module1 e copia il seguente testo nel modulo:

Function SentenceCase(ByVal str As String) As String
  'moonexcel.com.ua
  Dim sentences As Variant
  Dim i         As Integer
  Dim FCalc     As Object
    
  FCalc = CreateUnoService("com.sun.star.sheet.FunctionAccess")    
  
  str = Replace(str,"-"," ")
  str = Replace(str,"_"," ")
  str = FCalc.callFunction("TRIM", Array(str))
  str = LCase(str)
  str = FCalc.callFunction("REGEX", Array(str,"([.!?])(\s)(\w)","$1#$3","g"))
  
  sentences = Split(str, "#")
    
  For i = LBound(sentences) To UBound(sentences)       
    sentences(i) = UCase(Left(sentences(i), 1)) & Mid(sentences(i), 2)       
  Next i
    
  SentenceCase = Join(sentences," ")
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 SENTENCECASE() 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.