انتقل إلى المحتوى الرئيسي
Note: The other languages of the website are Google-translated. Back to English

كيفية إزالة جميع الصور من المستند في Word؟

إذا كنت تريد إزالة جميع الصور والاحتفاظ بجميع التنسيقات دون تغيير في المستند ، فكيف يمكنك القيام بذلك؟ سيوضح لك هذا البرنامج التعليمي بعض الأشياء الصعبة لإزالة جميع الصور دون تغيير التنسيق في المستند.

قم بإزالة جميع الصور من المستند عن طريق وظيفة البحث والاستبدال
قم بإزالة كافة الصور من المستند باستخدام التعليمات البرمجية لـ VBA
قم بإزالة جميع الصور بسهولة من المستند باستخدام Kutools for Word


قم بإزالة جميع الصور من المستند عن طريق وظيفة البحث والاستبدال

بحث واستبدال توفر الوظيفة طريقة سهلة لتحويل القيمة أو إزالتها ، بحيث يمكنك أيضًا استخدامها لإزالة جميع الصور من المستند.

الخطوة شنومك: انقر الصفحة الرئيسية > استبدل لفتح بحث واستبدال نافذة او شباك؛

الخطوة 2: في ملف بحث واستبدال نافذة، انقر فوق المزيد زر لإحضار المزيد بحث الخيارات ، ثم انقر فوق الجائزة الخاصة > Graphic، وأخيرًا انقر فوق استبدال الكل زر. انظر لقطة الشاشة:

ملاحظة: يمكنك أيضًا الدخول ^g في تجد ما مربع مباشرة ، احتفظ بعلامة الاستبدال بالمربع فارغًا ثم انقر فوق استبدال الكل زر لإزالة جميع الصور من المستند ؛

الآن تتم إزالة جميع الصور الموجودة في المستندات الحالية على الفور كما هو موضح أدناه.


قم بإزالة جميع الصور بسهولة من المستند باستخدام Kutools for Word:

إزالة الصور فائدة Kutools for Word يمكن أن تساعدك في إزالة جميع الصور بسرعة من نطاق محدد أو المستند بأكمله حسب حاجتك. انظر العملية على النحو المبين أدناه لقطة الشاشة. قم بتنزيله وجربه الآن! (60درب مجاني ليوم)


قم بإزالة كافة الصور من المستند باستخدام التعليمات البرمجية لـ VBA

يعد استخدام كود VBA طريقة أخرى أسهل لإزالة جميع الصور من المستند. يمكنك استخدام رمز VBA كما يلي لإزالة كافة الصور من المستند.

الخطوة شنومك: اضغط على قديم + F11 مفاتيح لفتح Microsoft Visual Basic للتطبيق نافذة او شباك؛

الخطوة شنومك: انقر إدراج > وحدة، انسخ والصق رمز VBA التالي في ملف وحدة نافذة او شباك؛

الخطوة شنومك: انقر فوق يجري زر لتطبيق VBA.

رمز فبا: إزالة كافة الصور من المستند:

Sub DitchPictures()
Dim objPic As InlineShape
For Each objPic In ActiveDocument.InlineShapes
objPic.Delete
Next objPic
End Sub

الآن تتم إزالة جميع الصور الموجودة في المستندات الحالية على الفور كما هو موضح أدناه.


قم بإزالة كافة الصور من المستند باستخدام Kutools for Word

Kutools for Word يوفر الطريقة الأكثر ملاءمة لإزالة كافة الصور من المستند. يمكنه إزالة جميع الصور من المستند بأكمله أو جميع الصور من الجزء المحدد من المستند.

Kutools for Word : مع أكثر من 100 وظيفة إضافية مفيدة لـ Word ، حر في المحاولة دون قيود 60 أيام.

إزالة الصور من نطاق:

1. الرجاء تحديد النطاق الذي يحتوي على الصور التي تريد إزالتها ، ثم قم بتطبيق هذه الأداة بالنقر فوق Kutools > المزيد > إزالة الصور لإزالتها مرة واحدة. انظر لقطة الشاشة:

إزالة الصور من المستند بأكمله:

1. فقط قم بتمكين الأداة المساعدة بالنقر فوق Kutools > المزيد > إزالة الصور بدون تحديد أي جزء من المستند. ثم Kutools for Word يظهر مربع الحوار لتذكيرك بإزالة كافة الصور. انقر نعم لبدء الإزالة.

الآن تتم إزالة جميع الصور الموجودة في المستندات الحالية على الفور كما هو موضح أدناه.

إذا كنت تريد الحصول على نسخة تجريبية مجانية من هذه الأداة المساعدة ، فيرجى الانتقال إلى تنزيل البرنامج مجانًا اولا ثم انتقل لتطبيق العملية حسب الخطوات اعلاه.



أدوات إنتاجية Word الموصى بها

 

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

  • يمكن إجراء العمليات المعقدة والمتكررة لمرة واحدة في ثوانٍ.
  • أدخل صورًا متعددة عبر المجلدات في مستند Word مرة واحدة.
  • دمج ودمج ملفات Word المتعددة عبر المجلدات في ملف واحد بالترتيب الذي تريده.
  • قسّم المستند الحالي إلى مستندات منفصلة وفقًا للعنوان أو فاصل المقطع أو معايير أخرى.
  • قم بتحويل الملفات بين Doc و Docx و Docx و PDF ، ومجموعة من الأدوات للتحويلات والاختيارات الشائعة ، وما إلى ذلك ...
فرز التعليقات حسب
التعليقات (5)
لا يوجد تقييم. كن أول من يقيم!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
ستقوم التعليمات البرمجية بإزالة الأشكال المضمنة فقط ، ضع في اعتبارك ما يلي حيث رأيت أحيانًا مشاكل عند استخدام المجموعات Do while ActiveDocument.Shapes.count> 0 ActiveDocument.Shapes (1) .Delete Loop Do while ActiveDocument.InlineShapes.count> 0 ActiveDocument.InlineShapes ( 1) .Delete Loop أستخدمها عند تغيير ملف إلى نص فقط. أقوم أيضًا بتحويل جميع الجداول إلى علامة التبويب Do while ActiveDocument.Tables.count> 0 ActiveDocument.Tables (1) .ConvertToText Separator: = wdSeparateByTabs Loop لم أر أي مشاكل مع حلقات do while ، ولكن أحيانًا عند الحذف من مجموعة أنا ألعب مع بدلاً من ذلك استخدم .count للحصول على إجمالي العناصر واستخدام a for next مع الخطوة -1 للعمل عليها بشكل عكسي. بالمناسبة ، أنا أعمل على جهاز Mac وتتصرف الكائنات أحيانًا بطريقة مضحكة ولا تتوفر حتى بعض كائنات Windows VBA.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكرًا جزيلاً لك على هذه الطريقة - لقد وفرت لي ساعات من العمل في التقاط الصور من المستند !! نانسي
تم تصغير هذا التعليق بواسطة المشرف على الموقع
واو ، نعم شكرا لك. عدة مباريات سابقة أخرى لم تنجح.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لا أعلم لكن بعض الرسومات لا يتم التقاطها في زر الاستبدال.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
تذكير رائع حول خيار البحث والاستبدال> خاص> الرسومات!

أنقذني الكثير من العمل!
لا توجد تعليقات منشورة هنا حتى الآن