Title Case LibreOffice için işlev Calc

TITLECASE() Açıklama

TITLECASE() işlevi, mevcut metni başlık biçimine dönüştürmek için tasarlanmıştır ve formdaki bir sözcük kümesini döndürür: "Function for Title Case" .

Title Case işlev kodu, tire ve alt çizgi gibi ayırıcıları boşluklarla değiştirir, tüm sözcükleri büyük harfe ve bağlaçları küçük harfe dönüştürür.

Title Case haber başlıklarında, site makalesi başlıklarında veya YouTube video başlıklarında büyük/küçük harf düzeltmeleri için yararlı olabilir.

TITLECASE(), bağlaçların büyük harfle yazılmaması dışında standart PROPER() işlevine benzer.

StarBASIC TITLECASE() için kod

Metni LibreOffice Calc'de başlıklar (Title Case) olarak görüntüleyebilen özel bir işlev oluşturmaya yönelik makro kodu burada verilmiştir.

Tools - Macros - Edit Macros... menüsünü açın, Module1'yi seçin ve aşağıdaki metni modüle kopyalayın:

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

Daha sonra Macro Editor'u kapatın, LibreOffice Calc'ye dönün ve yeni fonksiyonumuzu herhangi bir hücrede kullanın.

Uzantıyı kullanma

Bu özelliği de kullanabilirsiniz TITLECASE() ücretsiz uzantıyı yükleyerek YouLibreCalc.oxt veya tam özellikli sürümü YLC_Utilities.oxt .

Bundan sonra bu fonksiyon LibreOffice Calc'de açılacak tüm dosyalarda mevcut olacaktır.