لتسهيل عملية مراجعة التغييرات فى المستندات

[محمد طاهر عرفه]

السلام عليكم

احتجت مؤخرا لمراجعة مستندات كثيرة مع فريق عمل اون لاين

و اثناء المراجعة الفردية قبل المناقشة، و ايضا أثناء المناقشة أون لاين،  كثيرا ما اجتجت للتبديل بين وضعية اظهار و اخفاء التعديلات واظهار المستند النهائي بعد التعديل و اظهار المستند الأصلي و كل منها تتطلب ثلاثة خطوات

1-  الذهاب الي قاءمة المراجعة إذا لم تكن هي المفعلة

2-  ثم اختيار مربع السرد الخاص باظهار خيارات التعديلات Markup 

3-  ثم اختيار أحد الخيارات الفرعية،

 

 

و عليه و نظرا لحاجتي لتكرار استخدام هذه الأوامر كثيرا اثناء المناقشة و اثناء مراجعتي للمستند قبل المناقشة، قمت بتسجيل تلك الاوامر كماكروهات ثم اضافتها فى ايقونات بجانب اوامر المراجعة كما تظهر الصورة ضمن المحموعة المسماة Arafa كما هو موضح بالصورة ، و ذلك لاستخدامها بسهولة و سرعة أكبر بدل عن اختيار قائمة المراجعة ثم مربع السرد ثم احد الخيارات

أي ستبدال ثلاثة خطوات بخطوة واحدة

 

و قد وجدت في ذلك توفيرا ملحوظا على الرغم من بساطة الامر ، لذا احببت مشاركة ذلك معكم

و الأكواد هي

Sub Markup_No()
' Hide all Markups
    With ActiveWindow.View.RevisionsFilter
        .Markup = wdRevisionsMarkupNone
        .View = wdRevisionsViewFinal
    End With
End Sub
Sub Markup_All()
' Show All Markup
    With ActiveWindow.View.RevisionsFilter
        .Markup = wdRevisionsMarkupAll
        .View = wdRevisionsViewFinal
    End With
End Sub
Sub Markup_Original()
' Markup_Original Macro
    With ActiveWindow.View.RevisionsFilter
        .Markup = wdRevisionsMarkupNone
        .View = wdRevisionsViewOriginal
    End With
End Sub

و يمكن أيضا اضافة تلك الاوامر الي قائمة الوصول السريع لكي تكون متاحة عند تفعيل اي قائمة

و ذلك عن طريق اختيار الايقون ثم الضغط بالزر الايمن للفأرة و اختيار الاضافة لقائمة الوصول السريع

 

 

و لمن لا يريد استخدام الاكواد هناك حل وسط بكفاءة أقل قليلاً ، حيث مازلت ستحتاج للضغط مرتين بدل من ثلاثة و لكن بطريقة اسهل

و هو عن طريق اصافة الخيار الي قائمة الوصول السريع Quick Access Bar كما هو موضح فى الصورة التالية

1- اختار قائمة المراجعة و ثم مريع السرد الخاص باظهار التعديلات

2- اضغط على الزر الايمن للفأرة

3- اختيار الاضافة علي قائمة الخيارات السريعة Quick Access Toolbar

4- ستتم الاضافة كما هو مبين

و لكن كما ذكرت فى هذا الحل ستحتاج عند الاستخدام للنقر مرتين و لكن بطريقة اسهل ودون الحاجة لاختيار القائمة الخاصة بالمراجعة

 

 

[محمد حسن المحمد]

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

جزاكم الله خيراً أستاذنا الكريم

بميزان حسناتكم إن شاء الله يوم القيامة

تقبل تحياتي العطرة.

[تومي محمد]

جزاك الله خيرا يا استاذ

 

والسلام عليكم

[محمد طاهر عرفه]

السلام عليكم

واجهتني مشكلة اخري فى الملفات الكبيرة ، و هى أنه عند التبديل بين الثلاثة وضعيات ، يتغير موقع المؤشر ، خاصة عندما تكون البيانات ضمن جداول

فمثلا و انت تراجع البند رقم 200 ، عند اختيار اظهار النسخة الاصلية ينتقل المؤشر للبند 140 مثلا ، حيث أنه يبدو ان ذلك يعتمد على عدد الاسطر او موقع المؤشر ، دون مراعاة النص الظاهر ، ففي حالة الوضع الاصلي يكون عدد الاسطر اقل بالطبع و بالتالي تجد المؤشر فى مكان مختلف

 

 و الحل هو حفظ مكان المؤشر قبل تبديل طريقة الاظهار

Dim currentPosition As Range
Set currentPosition = Selection.Range 

و العودة له فى نهاية كل كود

currentPosition.Select

و طبعا يمكن استخدام خاصية ايقاف و تفعيل خاصية تحديث الشاشة فى بداية و نهاية الكود كي لا يشعر المستخدم بعملية الانتقال

Application.ScreenUpdating = False
Application.ScreenUpdating = True

و عليه تكون الاكواد النهائية

Sub Markup_No()
' Hide all Markups

Application.ScreenUpdating = False 
Dim currentPosition As Range
Set currentPosition = Selection.Range 

    With ActiveWindow.View.RevisionsFilter
        .Markup = wdRevisionsMarkupNone
        .View = wdRevisionsViewFinal
    End With
    
currentPosition.Select
Application.ScreenUpdating = True

End Sub


Sub Markup_All()
' Show All Markup

Application.ScreenUpdating = False 
Dim currentPosition As Range
Set currentPosition = Selection.Range 
    
    With ActiveWindow.View.RevisionsFilter
        .Markup = wdRevisionsMarkupAll
        .View = wdRevisionsViewFinal
    End With
    
currentPosition.Select
Application.ScreenUpdating = True
    
End Sub


Sub Markup_Original()
' Markup_Original Macro

Application.ScreenUpdating = False 
Dim currentPosition As Range
Set currentPosition = Selection.Range 
   
   With ActiveWindow.View.RevisionsFilter
        .Markup = wdRevisionsMarkupNone
        .View = wdRevisionsViewOriginal
    End With
    
currentPosition.Select
Application.ScreenUpdating = True
    
End Sub

 

[Ali Mohamed Ali]

بارك الله فيكم استاذى الكريم وجزاكم الله خير الثواب