كيفية حفظ جميع الصور من مستند Word

عند التعامل مع مستندات Word التي تحتوي على عدد كبير من الصور، قد يكون حفظ كل صورة يدويًا أمرًا مرهقًا وغير فعّال. لحسن الحظ، توجد عدة طرق عملية تتيح لك استخراج جميع الصور المضمنة دفعة واحدة، مما يبسّط العملية ويضمن عدم فقدان أيٍّ منها. في هذا البرنامج التعليمي، ستتعرّف على أربع حلول فعّالة لحفظ كل الصور من مستند Word الخاص بك، وكل منها مصمم لتلبية احتياجات وسيناريوهات مختلفة.

حفظ جميع الصور باستخدام ميزة «حفظ باسم»

حفظ جميع الصور باستخدام Kutools for Word

حفظ جميع الصور بتغيير امتداد الملف

استخدام كود VBA لاستخراج وحفظ جميع الصور تلقائيًا

---

حفظ جميع الصور باستخدام ميزة «حفظ باسم»

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

1. ابدأ بفتح المستند الذي يحتوي على الصور التي ترغب في حفظها، ثم انتقل إلىملف > حفظ باسمفي واجهة Word.
2. من قائمة منسدلةتحديد تنسيق الحفظ، اخترصفحة ويب (*.htm؛ *.html). يُصدِر هذا التنسيق المستند بطريقة تفصل الصور ووسائط أخرى إلى مجلد خارجي.
3. انقرحفظ.

   

بعد الحفظ، يتم إنشاء ملف .htm ومجلد مصاحب (يُسمى باسم مستندك) في الموقع الذي حددته. وستجد داخل هذا المجلد جميع الصور المستخرجة من المستند بتنسيقاتها الأصلية. تُعد هذه الطريقة سريعة وفعّالة مع معظم مستندات Word القياسية. ومع ذلك، قد تكون أسماء الصور عامة، وقد لا يتم استخراج بعض أنواع الصور المتقدمة بشكل مثالي في حالات نادرة. وبالنسبة للمستندات الكبيرة، فقد يتطلب فرز الصور جهدًا إضافيًّا.

---

حفظ جميع الصور باستخدام Kutools for Word

يوفّر Kutools for Word ميزة مخصصة تُسمىتصدير صورة/جدول إلى صور، تتيح لك تصدير جميع الصور من مستندك بكفاءة عالية بنقرات قليلة فقط! وهي مثالية خصوصًا للمستخدمين الذين يتعاملون مع مستندات تحتوي على عدد كبير من الصور أو يحتاجون إلى تخصيص تنسيق التصدير ومجلدات الحفظ.

1. على شريط Word، انقرKUTOOLS PLUS>المزيد>تصدير صورة/جدول إلى صور.

   

2. في مربع حوارتصدير صورة/جدول إلى صور، قم بتكوين خيارات الاستخراج بعناية:
   • اضبطالأنواععلىالصورلتضمين الصور فقط في تصديرك.
   • اختر تنسيق الصورة المفضل لديك (مثل PNG أو JPG أو BMP) من قائمة منسدلةتنسيق التصدير. ويضمن لك اختيار التنسيق المناسب توافقه للاستخدام المستقبلي.
   • انقر على الزر لتحديد المجلد الذي سيتم حفظ جميع الصور فيه، ثم قم بتأكيد اختيارك لتجنب تصدير الصور إلى موقع غير مقصود.

     

3. انقرتصدير. سيتم استخراج جميع الصور من المستند وحفظها كملفات فردية في المجلد الذي اخترته.

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

---

حفظ جميع الصور بتغيير امتداد الملف

إذا كنت تفضل عدم استخدام برامج إضافية أو الميزات المدمجة، يمكنك استخراج جميع الصور يدويًا عن طريق تغيير نوع ملف مستند Word. تعتمد هذه الطريقة على حقيقة أن ملفات .docx هي في الأساس أرشيفات ZIP تحتوي على جميع موارد المستند. وعلى الرغم من طابعها التقني، فإنها تُعد وسيلة فعّالة جدًا للوصول إلى ملفات الصور الأصلية. اتبع الخطوات التالية:

1. انقر بزر الماوس الأيمن على ملف Word واخترإعادة تسمية.

   

2. عدّل امتداد الملف باستبدال.docx بـ.zip. تأكد من أن امتدادات الملفات مرئية في مستكشف Windows.

   

3. اضغطEnter. إذا ظهرت رسالة تحذير حول تغيير نوع الملف، فانقرنعمللمتابعة.

   

4. انقر بزر الماوس الأيمن على أرشيف ZIP، ثم اختراستخراج إلى [اسم الملف]، أو استخدم أي أداة استخراج متوافقة.
5. داخل المجلدات المستخرجة، انتقل إلىWord > الوسائط. يحتوي هذا الدليل على جميع الصور المضمنة في المستند الأصلي.

   

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

---

استخدام كود VBA لاستخراج وحفظ جميع الصور المضمنة تلقائيًا

يوفّر ماكرو VBA حلاً آليًا لاستخراج وتصدير جميع الصور المضمنة من مستند Word النشط إلى مجلد معيّن. وهو مثالي خصوصًا للمستخدمين الذين يتعاملون بشكل متكرر مع مستندات تحتوي على عدد كبير من الصور ويرغبون في أتمتة العملية بطريقة قابلة للتكرار. ويتميّز نهج VBA بمرونته—إذ يمكنك تخصيص مجلد التصدير وتشغيل عملية الاستخراج بأقل قدر ممكن من التفاعل اليدوي.

هو الأنسب للمستخدمين المتمرسين على العمليات الأساسية للماكرو في Word. قبل المتابعة، تأكد من تفعيل الماكروات وامتلاكك الصلاحية اللازمة لتشغيل VBA على جهازك. يُرجى ملاحظة أن هذا الحل يدعم استخراج الصور المضمنة والطفوائية، لكنه قد لا يستخرج الأشكال أو المخططات البيانية كصور.

1. افتح مستند Word الذي يحتوي على الصور التي تريد استخراجها، وتأكد من أن المستند نشط ومرئي.

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

3. في نافذة VBA، انقرإدراج > وحدة نمطية. ثم انسخ والصق كود VBA التالي في لوحة الوحدة النمطية:

كود VBA: استخراج وحفظ جميع الصور المضمنة من المستند النشط

Sub ExportImagesPreserveOriginal()
'Updated by Extendoffice.com
    Dim doc As Document
    Dim tempPath As String
    Dim exportFolder As String
    Dim fso As Object
    Dim htmlPath As String
    Dim imgFolder As String
    Dim file As Object
    Dim subFolder As Object
    Dim xTitleId As String
    Dim foundImages As Boolean
    
    On Error Resume Next
    xTitleId = "Kutools for Word"

    ' Ask user for destination folder
    exportFolder = InputBox("Enter the full folder path to save images:", xTitleId, "C:\ExtractedImages")
    If exportFolder = "" Then Exit Sub
    If Right(exportFolder, 1) <> "\" Then exportFolder = exportFolder & "\"

    Set fso = CreateObject("Scripting.FileSystemObject")
    If Not fso.FolderExists(exportFolder) Then fso.CreateFolder exportFolder

    ' Save current document as filtered HTML (temporary)
    Set doc = ActiveDocument
    tempPath = Environ("TEMP") & "\WordImageExport_"
    htmlPath = tempPath & Format(Now, "yyyymmdd_hhnnss") & ".htm"
    
    doc.SaveAs2 FileName:=htmlPath, FileFormat:=wdFormatFilteredHTML

    ' Find the generated "_files" folder that contains the images
    imgFolder = Left(htmlPath, Len(htmlPath) - 4) & "_files"
    
    foundImages = False
    If fso.FolderExists(imgFolder) Then
        For Each file In fso.GetFolder(imgFolder).Files
            If LCase(Right(file.Name, 4)) = ".jpg" Or _
               LCase(Right(file.Name, 4)) = ".png" Or _
               LCase(Right(file.Name, 4)) = ".gif" Or _
               LCase(Right(file.Name, 4)) = ".bmp" Then
                fso.CopyFile file.Path, exportFolder & file.Name, True
                foundImages = True
            End If
        Next file
    Else
        For Each subFolder In fso.GetFolder(fso.GetParentFolderName(htmlPath)).SubFolders
            If InStr(1, subFolder.Name, "_files", vbTextCompare) > 0 Then
                For Each file In subFolder.Files
                    fso.CopyFile file.Path, exportFolder & file.Name, True
                    foundImages = True
                Next file
            End If
        Next subFolder
    End If

    On Error Resume Next
    fso.DeleteFile htmlPath, True
    fso.DeleteFolder imgFolder, True

    If foundImages Then
        MsgBox "All images have been exported successfully to:" & vbCrLf & exportFolder, vbInformation, xTitleId
    Else
        MsgBox "No images found in the document.", vbExclamation, xTitleId
    End If
End Sub

4. اضغط مفتاحF5لتشغيل الماكرو. عند المطالبة، حدد مجلد الوجهة (مثل)C:\ExtractedImages) حيث تريد حفظ جميع الصور.

سيقوم هذا الماكرو بمعالجة جميع الصور المضمنة والطفوائية في مستند Word النشط، وينسخ كل منها إلى الملف المُنشأ داخل المجلد الذي اخترته. تأكد من وجود المجلد ومن أن لديك الصلاحية اللازمة لكتابة الملفات فيه. وستُحفظ الصور الناتجة بتنسيقها الأصلي. إذا واجهت أي أخطاء، فتحقق من مسار الملف وإعدادات أمان الماكرو.

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

---