TOP

Sentence Case Funkcja dla LibreOffice Calc

SENTENCECASE() Opis

Funkcja SENTENCECASE() służy do konwersji istniejącego tekstu na format zdania i zwraca zestaw słów w postaci: "Sentence case function" .

Sentence Case dzieli linie oddzielone kropkami, wykrzyknikami lub znakami zapytania na osobne zdania. Następnie konwertuje wszystkie słowa na małe litery z wyjątkiem pierwszej litery w zdaniu, a następnie łączy wszystkie elementy w jeden ciągły tekst.

Funkcja SENTENCECASE() może być przydatna do poprawiania wielkości liter w zdaniach w całym tekście.


StarBASIC Kod dla SENTENCECASE()

Oto kod makra umożliwiający utworzenie niestandardowej funkcji, która może justować wielkość liter w słowach w zdaniach (Sentence Case) w LibreOffice Calc.

Otwórz menu Tools - Macros - Edit Macros..., wybierz Module1 i skopiuj następujący tekst do modułu:

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

Następnie zamknij Macro Editor, wróć do LibreOffice Calc i użyj naszej nowej funkcji w dowolnej komórce.

Korzystanie z rozszerzenia

Możesz także skorzystać z tej funkcji SENTENCECASE() instalując darmowe rozszerzenie YouLibreCalc.oxt lub jego w pełni funkcjonalna wersja YLC_Utilities.oxt .

Od tego momentu ta funkcja będzie dostępna we wszystkich plikach, które zostaną otwarte w LibreOffice Calc.