تنسيق ملف / خدمة للمكفوفين

[MohdShawki]

السلام عليكم ورحمة الله

اعمل مع فريق تطوعي لخدمة اخواننا المكفوفين في تحويل الكتب المصورة بصيغة بي دي اف الي الصيغ النصية التي يمكن للمكفوفين قراءتها ببرامج القراءة

وبالفعل نحن نقوم بتحويل ببرامج الي نصوص مكتوبة علي برنامج مايكروسوفت وورد الا ان النصوص بعد التحويل تحتاج للتنسيق علي ملف الوورد 

:اختصارًا لوقتكم فنحن نحتاج الي ماكرو يقوم بالتالي:

التحويل لكامل الملف من الفاصلة العربية التي يسبقها مسافة الي فاصلة عربية بدون مسافات قبلها

التحويل لكامل الملف من علامة الاستفهام التي يسبقها مسافة الي علامة استفهام عربية بدون مسافات قبلها

وقد تم تجميع ماكرو للتنسيقات المتبقية في عملنا من ما نُشر قبلًا من مشاركاتكم الكريمة

كل الشكر والتقدير لكم مقدمًا..وجعل الله هذا العمل في ميزان حسناتكم..

[MohdShawki]

هل من رد؟.. افادكم الله

[برقش]

السلام عليكم

لا خبرة لي بالماكرو ولكن يمكن إنجاز ما تطلبه (إزالة المسافة قبل الفاصلة وعلامة الاستفهام بعملية واحدة) من خلال البحث والاستبدال. وقد قمت بتسجيل الماكرو التالي الذي يزيل المسافة قبل الفاصلة وقبل علامة الاستفهام:

Sub NoSpB4ArCommaQMark()
'
' Macro1 NoSpB4ArCommaQMark
'
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = " ([؟،])"
        .Replacement.Text = "\1"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchKashida = False
        .MatchDiacritics = False
        .MatchAlefHamza = False
        .MatchControl = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub