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

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

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

---

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

Чтобы преобразовать все связанные изображения в документе во встроенные, воспользуйтесь приведённым ниже кодом VBA.

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

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

Код 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, чтобы выполнить код.

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