تم تصميم الدالة TITLECASE() لتحويل النص الموجود إلى حالة عنوان وإرجاع مجموعة من الكلمات في النموذج: "Function for Title Case".
يستبدل رمز الدالة Title Case الفواصل مثل الواصلات والشرطات السفلية بمسافات، ويحول كل الكلمات إلى أحرف كبيرة، ويحول أدوات العطف إلى أحرف صغيرة.
Title Case يمكن أن يكون مفيدًا لتصحيح الحالة في عناوين الأخبار أو عناوين مقالات الموقع أو عناوين مقاطع فيديو YouTube.
TITLECASE() يشبه الدالة PROPER() القياسية، فيما عدا أن أدوات العطف لا يتم كتابتها بأحرف كبيرة.
إليك رمز الماكرو لإنشاء وظيفة مخصصة يمكنها عرض النص كعناوين (Title Case) في LibreOffice Cac.
افتح القائمة 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.