TOP

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

TITLECASE() الوصف

تم تصميم الدالة TITLECASE() لتحويل النص الموجود إلى حالة عنوان وإرجاع مجموعة من الكلمات في النموذج: "Function for Title Case".

يستبدل رمز الدالة Title Case المحددات مثل الواصلات والشرطات السفلية بمسافات، ويحول كافة الكلمات إلى أحرف كبيرة، ويحول أدوات العطف إلى أحرف صغيرة.

Title Case يمكن أن يكون مفيدًا لتصحيح الحالة في عناوين الأخبار أو عناوين مقالات الموقع أو عناوين مقاطع فيديو YouTube.

TITLECASE() يشبه الدالة PROPER() القياسية، فيما عدا أن أدوات العطف لا يتم كتابتها بأحرف كبيرة.


BASIC رمز TITLECASE()

إليك رمز الماكرو لإنشاء وظيفة مخصصة يمكنها عرض النص كعناوين (Title Case) في LibreOffice Calc.

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