نصيحة: اللغات الأخرى مترجمة من قبل Google. يمكنك زيارة English نسخة من هذا الرابط.
تسجيل الدخول
x
or
x
x
التسجيل
x

or

كيف يتم قبول تغييرات مسار التنسيق في مستند Word فقط؟

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

قبول فقط تغييرات تعقب التنسيق في Word مع رمز VBA

قبول فقط تغييرات تعقب التنسيق في Word مع وظيفة "إظهار العلامة"


قبول فقط تغييرات تعقب التنسيق في Word مع رمز VBA

يمكن أن يساعدك رمز VBA التالي في قبول تغييرات مسار التنسيق في مستند Word فقط ، يرجى القيام بذلك على النحو التالي:

1. اضغط باستمرار ALT + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

2. ثم انقر فوق إدراج > وحدة، انسخ والصق تحت الرمز في الوحدة الفارغة المفتوحة:

رمز VBA: قبول تغييرات مسار التنسيق في مستند Word فقط

Sub AcceptFormatChanges()
    Dim xRev As Revision
    For Each xRev In ActiveDocument.Revisions
        If Left(xRev.FormatDescription, 10) = "Formatted:" Then
            xRev.Accept
        End If
    Next
End Sub

3. ثم اضغط F5 المفتاح لتشغيل هذا الرمز ، وتم قبول تغييرات مسار التنسيق فقط في مستند Word النشط على الفور. انظر لقطة للشاشة:

وثيقة قبول التنسيق 1


قبول فقط تغييرات تعقب التنسيق في Word مع وظيفة "إظهار العلامة"

في مستند Word ، يمكنك أيضًا تطبيق إظهار الترميز وظيفة لإنهاء هذه المهمة ، يرجى القيام باتباع الخطوات التالية:

1. في ملف وضع تغييرات المسار ، انقر فوق مراجعة كاملة > إظهار الترميزثم قم بإلغاء تحديد التعليقات . الإدراج والحذف خيارات ، وترك التنسيق فحص الخيار ، راجع لقطة الشاشة:

وثيقة قبول التنسيق 2

2. والآن ، يمكنك فقط مشاهدة تغييرات التنسيق المتعقبة ، ثم ، نقر على النقر مراجعة كاملة > قبول > قبول جميع التغييرات المعروضة كما يلي تظهر الصورة:

وثيقة قبول التنسيق 3

3. وقد تم قبول جميع تغييرات مسار التنسيق ، والآن ، تحتاج إلى العودة على التعليق, الإدراج والحذف خيارات عن طريق التحقق منها من إظهار الترميز القائمة المنسدلة، انظر الصورة:

وثيقة قبول التنسيق 4

4. الآن ، يمكنك مشاهدة تغييرات مسار التنسيق التي تم قبولها ، ولا تزال هناك تغييرات أخرى في المسار ، انظر لقطة الشاشة:

وثيقة قبول التنسيق 1



أوصت كلمة أدوات الإنتاجية

Kutools لـ Word - أكثر من 100 ميزات متقدمة لـ Word ، وفر وقتك 50٪

  • يمكن إجراء العمليات المعقدة والمتكررة لمرة واحدة خلال ثوانٍ.
  • إدراج صور متعددة عبر المجلدات في مستند Word مرة واحدة.
  • دمج ودمج ملفات Word متعددة عبر مجلدات في واحد بالترتيب المطلوب.
  • قسّم المستند الحالي إلى مستندات منفصلة وفقًا للعنوان أو فاصل المقاطع أو معايير أخرى.
  • تحويل الملفات بين Doc و Docx و Docx و PDF ، ومجموعة من الأدوات للتحويلات والتحديدات الشائعة ، وما إلى ذلك ...
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Vintotal · 6 months ago
    Vous êtes mon héros. En français, le code serait le suivant:

    Sub AcceptFormatChanges()
    Dim xRev As Revision
    For Each xRev In ActiveDocument.Revisions
    If Left(xRev.FormatDescription, 12) = "Mis en forme" Then
    xRev.Accept
    End If
    Next
    End Sub