Jump to content
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


Go to solution Solved by محمد طاهر,

Recommended Posts

السلام عليكم

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

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

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

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

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

 

image.png.ed7ecc4b78678d68065f192780887780.png

 

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

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

 

image.png.4dfcb813b7219266be33c87a326c4ada.png

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

و الأكواد هي

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

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

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

image.png.aff87b228236bd6a4a461a50cb4410bf.png

 

image.png.d5663ce3993fa98bbfa220d5a7b509ce.png

 

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

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

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

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

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

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

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

image.png.0333b642fc919efa45f9683b26a6f750.png

 

 

  • Like 2
Link to post
Share on other sites
  • 2 months later...
  • Solution

السلام عليكم

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

فمثلا و انت تراجع البند رقم 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

 

Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • Recently Browsing   0 members

    No registered users viewing this page.

×
×
  • Create New...