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

كما توقّعت، فالماكرو هي أداة تمكنك من أتمتة أو برمجة بعض أعمالك المتكرّرة، لنقل على سبيل المثال أنك تعمل كمحرر حيث تعمل باستمرار على حذف الأسطر الفارغة، والمسافات الفارغة قبل علامات الترقيم، تستبدل الفاصلة اللاتينية بالفاصلة العربية، إلى ما هناك من المهام التحريرية المتكررة، فالأفضل في هذه الحال أن تكتب أداة ماكرو (أو تطلب من أحدهم كتابتها لك) بحيث تُشغّلها كلما أردت البدء بتحرير نص جديد، وهكذا تبدأ العمل من 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

بالتوفيق