फ़ंक्शन SENTENCECASE() मौजूदा टेक्स्ट को वाक्य प्रारूप में परिवर्तित करने के लिए डिज़ाइन किया गया है और शब्दों का एक सेट इस रूप में लौटाता है: "Sentence केस function"।
Sentence Case अवधि, विस्मयादिबोधक बिंदु, या प्रश्न चिह्न द्वारा अलग की गई पंक्तियों को अलग-अलग वाक्यों में तोड़ता है। फिर, वाक्य में पहले अक्षर को छोड़कर सभी शब्दों को लोअर केस में परिवर्तित करता है और फिर सभी तत्वों को एक सतत पाठ में विलय कर देता है।
SENTENCECASE() फ़ंक्शन पूरे पाठ में वाक्यों में अक्षरों के मामले को सही करने के लिए उपयोगी हो सकता है।
यहां एक कस्टम फ़ंक्शन बनाने के लिए मैक्रो कोड है जो LibreOffice calc में वाक्यों (Sentence Case) में शब्दों को केस-जस्टिफ़ाई कर सकता है।
मेनू खोलें Tools - Macros - Edit Macros..., Module1 चुनें और निम्नलिखित पाठ को मॉड्यूल में कॉपी करें:
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
फिर Macro Editor को बंद करें, LibreOffice calc पर वापस लौटें और किसी भी सेल में हमारे नए फ़ंक्शन का उपयोग करें।
आप एक्सटेंशन सेट करके SENTENCASE() फ़ंक्शन का भी उपयोग कर सकते हैं YouLibrecalc.oxt "। उसके बाद, यह फ़ंक्शन उन सभी फ़ाइलों में उपलब्ध होगा जो LibreOffice calc में खोली जाएंगी।