फ़ंक्शन TITLECASE() मौजूदा टेक्स्ट को शीर्षक केसटब्ल में परिवर्तित करने के लिए डिज़ाइन किया गया है और शब्दों का एक सेट इस रूप में लौटाता है: "Function for title Case"।
Title Case फ़ंक्शन कोड विभाजक जैसे हाइफ़न और अंडरस्कोर को रिक्त स्थान से बदल देता है, सभी शब्दों को अपरकेस में परिवर्तित करता है, और संयोजनों को लोअरकेस में परिवर्तित करता है।
Title Case समाचार सुर्खियों, साइट लेख शीर्षक, या YouTube वीडियो शीर्षक में केस सुधार के लिए उपयोगी हो सकता है।
TITLECASE() मानक PROPER() फ़ंक्शन के समान है, सिवाय इसके कि संयोजन बड़े अक्षरों में नहीं लिखे गए हैं।
यहां एक कस्टम फ़ंक्शन बनाने के लिए मैक्रो कोड है जो टेक्स्ट को 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 पर वापस लौटें और किसी भी सेल में हमारे नए फ़ंक्शन का उपयोग करें।
आप एक्सटेंशन "सेट करके TITLECASE() फ़ंक्शन का भी उपयोग कर सकते हैं YouLibrecalc.oxt "। उसके बाद, यह फ़ंक्शन उन सभी फ़ाइलों में उपलब्ध होगा जो LibreOffice calc में खोली जाएंगी।