Изменение типа вставки рисунка в документ

Версия редактора? Каким образом вставляете: через буфер обмена или вставку рисунков?

Если Вы, как говорите, вставляете рисунок в документ с параметром "Вставить и связать", то от параметра "Вставить" он отличается лишь тем, что Вы можете редактировать рисунок в других программах и в Word эти изменения сразу будут отображаться. На Сохранение документа это никак не влияет. Если Вы отроете файл на другом  или удалите файлы рисунков, то в документе будут рисунки с последними изменениями. Сответственно указанные выше параметры значительно увеличивают размер файла Word.
Если же вставлять рисунок с параметром "Связать с файлом", то на Word показывает экранное отбражение рисунка, все его параметры хранятся в файле-оригинале. Это значительно уменьшает размел файла Word, особенно при большом количестве рисунков, видны изменения внесенные в них, а также увеличивается производительность работы с файлом.
Но следует помнить!!!
1. При удалении или изменении пути файла рисунка, при выводе будет печататься только экранное отображение с плохим качеством.
2. Файлы рисунков лучше всего хранить в одном каталоге, чтобы потом при открытии на другом компе было легче восстановить связи.

Попробуйте такой вариант:
1. Сохраните нужный вариант документа.
2. Запустите макрос приведенный ниже.

Public Sub BreakLink() ' Внедрение рисунков в Активный документ
Dim inshp As InlineShape, shp As Shape
Dim rng As Range
    
    For Each rng In ActiveDocument.StoryRanges
        If rng.InlineShapes.Count > 0 Then
            For Each inshp In rng.InlineShapes
                If inshp.Type = wdInlineShapeLinkedPicture Or inshp.Type = wdInlineShapeLinkedOLEObject Then
                    inshp.LinkFormat.SavePictureWithDocument = True
                    inshp.LinkFormat.BreakLink
                End If
            Next inshp
        End If
    Next rng
    
    For Each shp In ActiveDocument.Shapes
        If shp.Type = msoLinkedPicture Or shp.Type = msoLinkedOLEObject Then
            shp.LinkFormat.SavePictureWithDocument = True
            shp.LinkFormat.BreakLink
        End If
    Next shp
End Sub