Как сохранить все изображения из документа Word

При работе с документами Word, содержащими множество изображений, их ручное сохранение по отдельности может оказаться утомительным и неэффективным. К счастью, существуют практичные методы, позволяющие мгновенно извлечь все встроенные изображения — быстро, удобно и без риска что-то упустить. В этом руководстве вы узнаете четыре эффективных способа сохранения всех изображений из документа Word, каждый из которых идеально подходит для разных задач и ситуаций.

Сохранение всех изображений с помощью функции «Сохранить как»

Сохранение всех изображений с помощью Kutools для Word

Сохранение всех изображений путем изменения расширения файла

Использование кода VBA для автоматического извлечения и сохранения всех изображений

---

Сохранение всех изображений с помощью функции «Сохранить как»

Функция Сохранить как предлагает простой способ извлечь все изображения из документа Word одновременно. Этот метод особенно полезен, если вы предпочитаете решение без надстроек и сложных настроек. Вот как его использовать:

1. Начните с открытия документа, содержащего изображения, которые вы хотите сохранить. Затем в интерфейсе Word перейдите к пункту Файл > Сохранить как.
2. В разделе Указать формат сохранения в раскрывающемся списке выберите формат Веб-страница (*.htm; *.html). При экспорте в этом формате изображения и другие медиафайлы будут помещены в отдельную внешнюю папку.
3. Нажмите Сохранить.

   

После сохранения в указанном вами месте создаются файл .htm и соответствующая папка с именем вашего документа. Внутри этой папки вы найдёте все изображения, извлечённые из документа, в их исходных форматах. Этот метод быстр и подходит для большинства стандартных документов Word. Однако имена изображений могут оказаться общими, а в редких случаях некоторые продвинутые типы изображений — извлечься не полностью. Для больших документов может потребоваться дополнительное время на сортировку изображений.

---

Сохранение всех изображений с помощью Kutools для Word

Kutools для 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 > Media. В этой папке находятся все изображения, встроенные в исходный документ.

   

Этот метод обеспечивает прямой доступ к изображениям в их исходном качестве и степени сжатия. Он идеально подходит для опытных пользователей или массового извлечения. Старайтесь не изменять файлы внутри распакованной папки, так как это может повлиять на возможность восстановления документа. Если в вашей системе по умолчанию не отображаются расширения файлов, включите их в настройках проводника Windows.

---

Использование кода VBA для автоматического извлечения и сохранения всех встроенных изображений

Макрос VBA предлагает автоматизированное решение для извлечения и экспорта всех встроенных изображений из активного документа Word в указанную папку. Он особенно полезен пользователям, которые часто работают с документами, содержащими множество изображений, и ценят полностью автоматизированный, повторяемый процесс. Подход на основе VBA отличается гибкостью: вы можете легко настроить папку для экспорта и запускать извлечение изображений с минимальным взаимодействием.

Он идеально подходит для пользователей, знакомых с основными операциями макросов в Word. Перед началом работы убедитесь, что макросы включены и у вас есть разрешение на запуск VBA на устройстве. Обратите внимание: это решение работает как со встроенными, так и с плавающими изображениями, однако может не извлекать фигуры или диаграммы в виде изображений.

1. Откройте документ Word, содержащий изображения для извлечения. Убедитесь, что документ активен и отображается на экране.

2. Нажмите клавиши Alt+F11, чтобы открыть окно Microsoft Visual Basic для приложений.

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, настоятельно рекомендуется заранее ознакомиться с мерами безопасности макросов и наилучшими практиками резервного копирования.

---