Перейти к содержимому

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

Author: Siluvia Last Modified: 2025-08-07

Когда вы отправляете документ Word, содержащий связанные изображения, другим людям, изображения могут отсутствовать и отображаться на компьютере получателя так, как показано на скриншоте ниже. Как преобразовать все связанные изображения во внедренные сразу перед отправкой другим? В этой статье представлен метод VBA для решения этой задачи.

Linked image that cannot be displayed

Преобразование связанных изображений во внедренные с помощью кода VBA

Преобразование связанных изображений во внедренные с помощью кода VBA

Пожалуйста, примените следующий код VBA для преобразования всех связанных изображений в документе во внедренные.

1. Откройте документ Word, содержащий связанные изображения, которые вы хотите преобразовать во внедренные. Нажмите клавиши Alt + F11, чтобы открыть окно Microsoft Visual Basic for Applications.

2. В окне Microsoft Visual Basic for Applications нажмите Вставить > Модуль. Затем скопируйте приведенный ниже код VBA в окно Модуля. См. скриншот:

VBA window with a module inserted

Код VBA: Преобразовать все связанные изображения во внедренные одновременно

Sub convert_all_inline_shapes()
'Updated by Extendoffice 20180906
    Dim xIShape As InlineShape
    For Each xIShape In ActiveDocument.InlineShapes
        With xIShape
            If .Type = wdInlineShapeLinkedPicture Then
                .LinkFormat.SavePictureWithDocument = True
                .LinkFormat.BreakLink
            End If
        End With
    Next
End Sub

3. Нажмите клавишу F5 для запуска кода.

Теперь все связанные изображения в текущем документе будут одновременно преобразованы во внедренные.

Лучшие инструменты для повышения производительности в Office

Kutools для Word– улучшите свой опыт работы с Word с помощью более чем 100 выдающихся функций!

🤖 Возможности Kutools AI: AI Ассистент / Ассистент в Реальном Времени / Супер Полировка (с сохранением формата) / Супер Перевод (с сохранением формата) / Искусственный интеллект для редактирования / Проверка с помощью ИИ...

📘 Мастерство работы с документами: Разделить страницы / Объединить документы / Экспортировать выделенное в различных форматах (PDF/TXT/DOC/HTML...) / Пакетно преобразовать в PDF...

✏ Редактирование содержимого: Пакетный поиск и замена в нескольких файлах / Изменить размер всех изображений / Транспонировать строки и столбцы таблицы / Преобразовать таблицу в текст...

🧹 Лёгкая очистка: Удалите лишние пробелы / Разрывы разделов / текстовые поля / гиперссылки. Для других инструментов удаления перейдите в группу Удалить...

➕ Творческие вставки: Вставить разделитель разрядов / Флажки / Переключатели / QR-код / Штрихкод / Несколько изображений. Откройте больше возможностей в группе Вставить...

🔍 Точные выделения: Точно определяйте нужные страницы / таблицы / фигуры / абзацы заголовка. Улучшайте навигацию благодаря расширенным функциям Выбрать ...

⭐ Уникальные улучшения: Переходите к любому расположению / Автоматически вставляйте повторяющийся текст / Переключайтесь между окнами документа /11 инструментов преобразования...

🌍 Поддержка более40 языков: Используйте Kutools на удобном вам языке – поддерживаются английский, испанский, немецкий, французский, китайский и ещё более40 языков!

Kutools and Kutools Plus tabs on the Word Ribbon
👉 Хотите попробовать эти функции? Скачайте Kutools для Word прямо сейчас! 🚀
 

Лучшие инструменты для повышения производительности в Office

Kutools для Word – 100+ инструментов для Word

Бесплатная загрузка Купить Подробнее о Kutools