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

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

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

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


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

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

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

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

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

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


قم بإزالة جميع الصور بسهولة من المستند باستخدام 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

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

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

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

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

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

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

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

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


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

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

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

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

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

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

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

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

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

؟؟؟؟ هل تريد تجربة هذه الميزات؟ يقدم Kutools for Word أ الإصدار التجريبي المجاني من 60 يومًا، بلا حدود! 🚀
 
Comments (5)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Great reminder about the find & replace>special>graphics option!

Saved me so much work!
This comment was minimized by the moderator on the site
i dont know but some of the graphic is not capturing in replace button.
This comment was minimized by the moderator on the site
Wow, yes thank you. Several other previous matches did not work.
This comment was minimized by the moderator on the site
Thank you so much for this how to - it saved me HOURS of work taking photos out of a document!! nancy
This comment was minimized by the moderator on the site
Your code will only remove inlineshapes, consider the following as I have sometimes seen problems when using collections Do While ActiveDocument.Shapes.count > 0 ActiveDocument.Shapes(1).Delete Loop Do While ActiveDocument.InlineShapes.count > 0 ActiveDocument.InlineShapes(1).Delete Loop I use these when changing a file to text only. I also convert all tables to tab delmited Do While ActiveDocument.Tables.count > 0 ActiveDocument.Tables(1).ConvertToText Separator:=wdSeparateByTabs Loop I have not seen any problems with do while loops, but have occasionally when deleting from a collection that I am playing with I alternatively use .count to get a total of items and use a for next with a step -1 to work on them backwards. By the way, I work on a Mac and objects sometimes act funny and some windows VBA objects are not even available.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations