Ответить на комментарий

Чтобы MS Word действительно включил картинки в тело документа необходимо

Вставлять их через Copy/Paste либо воспользоваться макросом. К счастью макрос уже написан занас и найден здесь www.author-it.com (за что его авторам спасибо и respect):

Sub LinkShapesAndFields()

 

    ' Embeds linked graphics into document so it

    ' can be moved without breaking links to images

 

    ' Runs through all Shapes, Fields and InlineShapes

    ' and calls the LinkFormat.BreakLink

    ' Written 20-June-2003 Derek Tomes - Author-it

    ' Modified 20-January-2004 DT - ActiveDocument.UndoClear added

 

    Dim objShape As Shape

    Dim objField As Field

    Dim objInlineShape As InlineShape

    Dim objSelection As Selection

 

    PrintPreview = True

    ActiveWindow.Selection.MoveEnd wdStory

    PrintPreview = False

    ActiveDocument.ActiveWindow.View.Type = wdNormalView

 

    For Each objShape In ActiveDocument.Shapes

      If Not objShape.LinkFormat Is Nothing Then

        objShape.LinkFormat.BreakLink

        ActiveDocument.UndoClear

      End If

    Next

    For Each objField In ActiveDocument.Fields

      If Not objField.LinkFormat Is Nothing Then

        objField.LinkFormat.BreakLink

        ActiveDocument.UndoClear

      End If

    Next

    For Each objInlineShape In ActiveDocument.InlineShapes

      If Not objInlineShape.LinkFormat Is Nothing Then

        objInlineShape.LinkFormat.BreakLink

        ActiveDocument.UndoClear

      End If

    Next

End Sub