Hoe alle afbeeldingen uit een Word-document op te slaan

Wanneer u werkt met Word-documenten die een groot aantal afbeeldingen bevatten, kan het handmatig opslaan van elke afbeelding tijdrovend en inefficiënt zijn. Gelukkig zijn er verschillende praktische methoden waarmee u snel alle ingesloten afbeeldingen tegelijk kunt extraheren, waardoor het proces wordt gestroomlijnd en geen enkele afbeelding wordt overgeslagen. In deze handleiding leert u vier effectieve oplossingen om elke afbeelding uit uw Word-document op te slaan, elk afgestemd op verschillende behoeften en scenario’s.

Sla alle afbeeldingen op met de functie Opslaan als

Sla alle afbeeldingen op met Kutools voor Word

Sla alle afbeeldingen op door de bestandsextensie te wijzigen

Gebruik VBA-code om automatisch alle afbeeldingen te extraheren en op te slaan

---

Sla alle afbeeldingen op met de functie Opslaan als

De functie Opslaan als biedt een eenvoudige manier om alle afbeeldingen tegelijk uit een Word-document te extraheren. Deze aanpak is vooral handig als u op zoek bent naar een methode zonder add-ins of geavanceerde configuratie. Zo gebruikt u deze:

1. Begin met het openen van het document dat de afbeeldingen bevat die u wilt opslaan. Navigeer vervolgens in de Word-interface naar Bestand > Opslaan als.
2. Kies in de Opmaak opgeven voor opslaan-keuzelijst Webpagina (*.htm; *.html). Dit formaat exporteert het document op een manier waarbij afbeeldingen en andere media worden opgeslagen in een aparte map.
3. Klik op Opslaan.

   

Na het opslaan worden er een .htm-bestand en een bijbehorende map (met de naam van uw document) gegenereerd op de door u opgegeven locatie. In deze map vindt u alle afbeeldingen uit het document in hun oorspronkelijke formaten. Deze methode is snel en werkt voor de meeste standaard Word-documenten. Let wel: afbeeldingsnamen kunnen generiek zijn, en in zeldzame gevallen worden sommige geavanceerde afbeeldingstypen mogelijk niet perfect geëxtraheerd. Bij grote documenten kan het sorteren van afbeeldingen extra tijd en moeite kosten.

---

Sla alle afbeeldingen op met Kutools voor Word

Kutools voor Word biedt een specifieke functie genaamd Exporteer Afbeelding/Tabel naar Afbeeldingen waarmee u efficiënt alle afbeeldingen uit uw document kunt exporteren met slechts enkele klikken. Deze methode is vooral handig voor gebruikers die documenten met veel afbeeldingen verwerken of het exportformaat en de doelmappen willen aanpassen.

1. Klik op de Word-lint op KUTOOLS PLUS>Meer>Exporteer Afbeelding/Tabel naar Afbeeldingen.

   

2. Configureer in het dialoogvenster Exporteer Afbeelding/Tabel naar Afbeeldingende extractie-opties zorgvuldig:
   • Stel Typen in op Afbeeldingen om alleen afbeeldingen op te nemen in uw export.
   • Selecteer uw gewenste afbeeldingsformaat (zoals PNG, JPG of BMP) uit de Exportformaat-keuzelijst. Het juiste formaat kiezen zorgt voor compatibiliteit bij toekomstig gebruik.
   • Klik op de -knop om een map op te geven waarin alle afbeeldingen worden opgeslagen. Bevestig uw keuze om te voorkomen dat de afbeeldingen naar een onbedoelde locatie worden geëxporteerd.

     

3. Klik op Exporteren. Alle afbeeldingen uit het document worden geëxtraheerd en opgeslagen als afzonderlijke bestanden in de map van uw keuze.

Deze oplossing stelt u in staat om afbeeldingen batchgewijs te extraheren, ondersteunt flexibele opmaakopties en biedt extra voordelen bij het verwerken van tabellen of speciale afbeeldingen. Als uw document complexe lay-outs of een combinatie van afbeeldingstypen bevat, maakt Kutools het proces eenvoudiger. Zorg ervoor dat de doelmap schrijfrechten heeft om fouten tijdens de export te voorkomen.

---

Sla alle afbeeldingen op door de bestandsextensie te wijzigen

Als u liever geen extra software of ingebouwde functies gebruikt, kunt u alle afbeeldingen handmatig extraheren door het bestandstype van het Word-document te wijzigen. Deze methode maakt gebruik van het feit dat .docx-bestanden in wezen ZIP-archieven zijn die alle documentassets bevatten. Hoewel het iets technisch is, geeft het u direct toegang tot de originele afbeeldingsbestanden. Volg deze stappen:

1. Klik met de rechtermuisknop op uw Word-bestand en kies Hernoemen.

   

2. Wijzig de bestandsextensie door .docx te vervangen door .zip. Zorg ervoor dat bestandsextensies zichtbaar zijn in Windows Verkenner.

   

3. Druk op Enter. Als u een waarschuwingsbericht krijgt over het wijzigen van het bestandstype, klikt u op Ja om door te gaan.

   

4. Klik met de rechtermuisknop op het ZIP-archief en selecteer Uitpakken naar [bestandsnaam], of gebruik een geschikte uitpaktool.
5. Navigeer in de uitgepakte mappen naar Word > Media. Deze map bevat alle afbeeldingen die in het oorspronkelijke document zijn ingesloten.

   

Deze methode biedt directe toegang tot afbeeldingen in hun oorspronkelijke compressie en kwaliteit – perfect voor gevorderde gebruikers of bulkextractie. Let op: wijzig geen bestanden in de uitgepakte map, want dat kan de mogelijkheid om het document te herstellen beïnvloeden. Als uw systeem standaard geen bestandsextensies weergeeft, schakelt u deze in via de instellingen van Windows Verkenner.

---

Gebruik VBA-code om automatisch alle ingesloten afbeeldingen te extraheren en op te slaan

Een VBA-macro biedt een geautomatiseerde oplossing om alle ingesloten afbeeldingen uit uw actieve Word-document te extraheren en naar een door u opgegeven map te exporteren. Dit is vooral handig voor gebruikers die regelmatig documenten met veel afbeeldingen verwerken en een hands-off, herhaalbaar proces waarderen. De VBA-aanpak is flexibel: pas eenvoudig de exportlocatie aan en voer de extractie uit met minimale gebruikersinteractie.

Het is het meest geschikt voor gebruikers die bekend zijn met basis macro-bewerkingen in Word. Zorg er vóórdat u begint voor dat macro’s zijn ingeschakeld en dat u toestemming hebt om VBA op uw apparaat uit te voeren. Houd er rekening mee dat deze oplossing werkt voor zowel inline als zwevende afbeeldingen, maar mogelijk geen vormen of grafieken als afbeeldingen extrahert.

1. Open het Word-document met de afbeeldingen die u wilt extraheren. Zorg dat het document actief en zichtbaar is.

2. Druk op de toetsen Alt+F11 om het venster Microsoft Visual Basic for Applications te openen.

3. Klik in het VBA-venster op Invoegen > Module. Kopieer en plak vervolgens de volgende VBA-code in het modulevenster:

VBA-code: Extraheer en sla alle ingesloten afbeeldingen op uit het actieve document

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. Druk op de toets F5om de macro uit te voeren. Geef bij de prompt de doelmap op (bijvoorbeeld)C:\ExtractedImages) waarin u alle afbeeldingen wilt opslaan.

Deze macro verwerkt alle inline en zwevende afbeeldingen uit het actieve Word-document en kopieert elk naar een gegenereerd bestand in de map van uw keuze. Zorg ervoor dat de map bestaat en dat u schrijfrechten hebt. De resulterende afbeeldingen worden opgeslagen in hun oorspronkelijke bestandstype. Mocht u fouten tegenkomen, controleer dan het bestandspad en de beveiligingsinstellingen voor macro’s.

Deze VBA-aanpak is zeer effectief voor repetitieve taken en grote hoeveelheden afbeeldingen. Het extrahert echter mogelijk geen andere grafische elementen zoals SmartArt of vergelijkingen. Voor gebruikers die niet bekend zijn met VBA, is het aanbevolen om de veiligheid van macro’s en back-uppraktijken te controleren vóórdat u verdergaat.

---