انتقل إلى المحتوى الرئيسي

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

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

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

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


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

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

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

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

رمز فبا: قبول التنسيق وتعقب التغييرات فقط في مستند 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 النشط على الفور. انظر لقطة الشاشة:

doc قبول التنسيق 1


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

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

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

doc قبول التنسيق 2

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

doc قبول التنسيق 3

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

doc قبول التنسيق 4

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

doc قبول التنسيق 1

أفضل أدوات إنتاجية المكتب

كوتولس للكلمة - ارفع تجربة كلمتك مع أكثر 100 ميزات رائعة!

🤖 مساعد كوتولس AI: تحويل كتابتك باستخدام الذكاء الاصطناعي - توليد المحتوى  /  إعادة كتابة النص  /  تلخيص المستندات  /  الاستفسار عن المعلومات على أساس الوثيقة، كل ذلك داخل Word

📘 إتقان الوثيقة: تقسيم الصفحات  /  دمج المستندات  /  تصدير التحديد بتنسيقات مختلفة (PDF/TXT/DOC/HTML...)  /  دفعة تحويل إلى PDF  /  تصدير الصفحات كصور  /  طباعة ملفات متعددة في وقت واحد

تحرير المحتويات: بحث واستبدال دفعة عبر ملفات متعددة  /  تغيير حجم كافة الصور  /  تبديل صفوف وأعمدة الجدول  /  تحويل الجدول إلى نص

🧹 تنظيف سهل: اكتساح بعيدا مساحات اضافية  /  فواصل القسم  /  كل الرؤوس  /  مربعات النص  /  الارتباطات التشعبية  / لمزيد من أدوات الإزالة، توجه إلى موقعنا إزالة المجموعة

إدراجات إبداعية: إدراج الف فاصل  /  مربعات الاختيار  /  أزرار الراديو  /  رمز الاستجابة السريعة  /  الباركود  /  جدول الخط القطري  /  شرح المعادلة  /  صورة توضيحية  /  الجدول التوضيحي  /  صور متعددة  / اكتشف المزيد في أدخل المجموعة

🔍 التحديدات الدقيقة: يحدد بدقة صفحات محددة  /  الجداول  /  الأشكال  /  فقرات العناوين  / تحسين التنقل باستخدام الأكثر من ذلك حدد الميزات

تحسينات النجوم: انتقل بسرعة إلى أي مكان  /  الإدراج التلقائي للنص المتكرر  /  التبديل بسلاسة بين نوافذ المستندات  /  11 أدوات التحويل

؟؟؟؟ هل تريد تجربة هذه الميزات؟ يقدم Kutools for Word أ الإصدار التجريبي المجاني من 60 يومًا، بلا حدود! 🚀
 
Comments (3)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
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
This comment was minimized by the moderator on the site
Dans toutes les langues :

Sub AcceptFormatChanges()
Dim xRev As Revision
For Each xRev In ActiveDocument.Revisions
If xRev.FormatDescription <> "" Then
xRev.Accept
End If
Next
End Sub
This comment was minimized by the moderator on the site
Merci, en effet, la dernière méthode fonctionne aussi en néerlandais
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations