تم تصميم الدالة SENTENCECASE() لتحويل النص الموجود إلى تنسيق جملة وإرجاع مجموعة من الكلمات في النموذج: "Sentence case function".
Sentence Case يقسم الأسطر المفصولة بنقاط أو علامات تعجب أو علامات استفهام إلى جمل منفصلة. ثم يقوم بتحويل جميع الكلمات إلى أحرف صغيرة باستثناء الحرف الأول في الجملة ثم يدمج جميع العناصر في نص واحد مستمر.
يمكن أن تكون الدالة SENTENCECASE() مفيدة لتصحيح حالة الأحرف في الجمل في النص بأكمله.
إليك رمز الماكرو لإنشاء وظيفة مخصصة يمكنها ضبط حالة الكلمات في الجمل (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 واستخدم وظيفتنا الجديدة في أي خلية.
يمكنك أيضًا استخدام الدالة SENTENCASE() عن طريق تعيين الامتداد " YouLibreCalc.oxt ". بعد ذلك، ستكون هذه الوظيفة متاحة في جميع الملفات التي سيتم فتحها في LibreOffice Calc.