• 0

ما هي أدوات الماكرو؟

في برنامج رايتر هناك وتحت قائمة Tools هناك وحدات الماكرو، والتي تبدو لي على أنها نافذة تتيح كتابة أكواد برمجية!

فهل هذا صحيح، وفيمَ تستخدم الماكرو؟

انشر على الشّبكات الاجتماعية


رابط هذه المساهمة
  • 0

كما توقّعت، فالماكرو هي أداة تمكنك من أتمتة أو برمجة بعض أعمالك المتكرّرة، لنقل على سبيل المثال أنك تعمل كمحرر حيث تعمل باستمرار على حذف الأسطر الفارغة، والمسافات الفارغة قبل علامات الترقيم، تستبدل الفاصلة اللاتينية بالفاصلة العربية، إلى ما هناك من المهام التحريرية المتكررة، فالأفضل في هذه الحال أن تكتب أداة ماكرو (أو تطلب من أحدهم كتابتها لك) بحيث تُشغّلها كلما أردت البدء بتحرير نص جديد، وهكذا تبدأ العمل من 3/4 الطريق.

لإضافة ماكرو جديد اذهب إلى:

Tools ‣ Macros ‣ Organize Macros ‣ LibreOffice Basic

ثم: My Macros ‣ Standerd ‣ New

وإليك على سبيل المثال هذا الماكرو من تنفيذ الأستاذ أحمد م.أبو زيد لضبط عمليات التحرير السابقة:

Sub FixArabicCommon
oDoc = thisComponent
aFind = Array("(.*\w[^a-zA-Z\d])(;)", "(.*\w[^a-zA-Z\d])(,)", "\([ ]*", "[ ]*\)", "^$", "^[\ ]*$", "^[\ ]*", "[\ ]*$", "[ ]*", " :", " ؛", " ،", " \.", " !", " ؟", " و ", "^و ", "ـ")
aReplace = Array("$1؛", "$1،", "(", ")", "", "", "", "", " ", ":", "؛", "،", ".", "!", "؟", " و", "و", "")
aRayCount = 0
FandR = oDoc.createReplaceDescriptor
FandR.SearchCaseSensitive = true
FandR.SearchRegularExpression = true
While aRayCount <= uBound(aFind)
FandR.setSearchString(aFind(aRayCount))
FandR.setReplaceString(aReplace(aRayCount))
aRayCount = aRayCount + 1
oDoc.ReplaceAll(FandR)
Wend
End Sub

الآن لتنفيذ الماكرو اذهب إلى: Tools ‣ Macros ‣ Run Macros

بالتوفيق

انشر على الشّبكات الاجتماعية


رابط هذه المساهمة

يجب أن تكون عضوًا لدينا لتتمكّن من التعليق

انشاء حساب جديد

يستغرق التسجيل بضع ثوان فقط


سجّل حسابًا جديدًا

تسجيل الدخول

تملك حسابا مسجّلا بالفعل؟


سجّل دخولك الآن