Sentence Case الدالة لـ LibreOffice Cal

SENTENCECASE() الوصف

تم تصميم الدالة SENTENCECASE() لتحويل النص الموجود إلى تنسيق جملة وإرجاع مجموعة من الكلمات في النموذج: "Sentence case function".

Sentence Case يقسم الأسطر المفصولة بنقاط أو علامات تعجب أو علامات استفهام إلى جمل منفصلة. ثم يقوم بتحويل جميع الكلمات إلى أحرف صغيرة باستثناء الحرف الأول في الجملة ثم يدمج جميع العناصر في نص واحد مستمر.

يمكن أن تكون الدالة SENTENCECASE() مفيدة لتصحيح حالة الأحرف في الجمل في النص بأكمله.

BASIC كود SENTENCASE()

إليك رمز الماكرو لإنشاء وظيفة مخصصة يمكنها ضبط حالة الكلمات في الجمل (Sentence Case) في LibreOffice Calc.

افتح القائمة 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 واستخدم وظيفتنا الجديدة في أي خلية.

باستخدام ملحق YouLibreCalc

يمكنك أيضًا استخدام الدالة SENTENCASE() عن طريق تعيين الامتداد " YouLibreCalc.oxt ". بعد ذلك، ستكون هذه الوظيفة متاحة في جميع الملفات التي سيتم فتحها في LibreOffice Calc.