TOP

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

SENTENCECASE() विवरण

फ़ंक्शन SENTENCECASE() मौजूदा टेक्स्ट को वाक्य प्रारूप में परिवर्तित करने के लिए डिज़ाइन किया गया है और शब्दों का एक सेट इस रूप में लौटाता है: "Sentence केस function"।

Sentence Case अवधि, विस्मयादिबोधक बिंदु, या प्रश्न चिह्न द्वारा अलग की गई पंक्तियों को अलग-अलग वाक्यों में तोड़ता है। फिर, वाक्य में पहले अक्षर को छोड़कर सभी शब्दों को लोअर केस में परिवर्तित करता है और फिर सभी तत्वों को एक सतत पाठ में विलय कर देता है।

SENTENCECASE() फ़ंक्शन पूरे पाठ में वाक्यों में अक्षरों के मामले को सही करने के लिए उपयोगी हो सकता है।


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

यहां एक कस्टम फ़ंक्शन बनाने के लिए मैक्रो कोड है जो 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 पर वापस लौटें और किसी भी सेल में हमारे नए फ़ंक्शन का उपयोग करें।