TOP

Title Case LibreOffice calc के लिए फ़ंक्शन

TITLECASe() विवरण

फ़ंक्शन TITLECASE() मौजूदा टेक्स्ट को शीर्षक केसटब्ल में परिवर्तित करने के लिए डिज़ाइन किया गया है और शब्दों का एक सेट इस रूप में लौटाता है: "Function for title Case"।

Title Case फ़ंक्शन कोड डिलीमीटर जैसे हाइफ़न और अंडरस्कोर को रिक्त स्थान से बदल देता है, सभी शब्दों को अपरकेस में परिवर्तित करता है, और संयोजनों को लोअरकेस में परिवर्तित करता है।

Title Case समाचार सुर्खियों, साइट लेख शीर्षक, या YouTube वीडियो शीर्षक में केस सुधार के लिए उपयोगी हो सकता है।

TITLECASe() मानक PROPER() फ़ंक्शन के समान है, सिवाय इसके कि संयोजन बड़े अक्षरों में नहीं लिखे गए हैं।


BASIC TITLECASe() के लिए कोड

यहां एक कस्टम फ़ंक्शन बनाने के लिए मैक्रो कोड है जो टेक्स्ट को LibreOffice calc में शीर्षक (Title Case) के रूप में प्रदर्शित कर सकता है।

मेनू खोलें Tools - Macros - Edit Macros..., Module1 चुनें और निम्नलिखित पाठ को मॉड्यूल में कॉपी करें:

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

फिर Macro Editor को बंद करें, LibreOffice calc पर वापस लौटें और किसी भी सेल में हमारे नए फ़ंक्शन का उपयोग करें।