Включить внешние картинки в Word (Embed)
in

Чтобы 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
0
Your rating: Нет

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

Содержание этого поля является приватным и не предназначено к показу.
  • Адреса страниц и электронной почты автоматически преобразуются в ссылки.
  • Доступны HTML теги: <a> <em> <strong> <cite> <code> <ul> <ol> <li> <dl> <dt> <dd> <p> <br><b><i> <img>
  • Строки и параграфы переносятся автоматически.

Подробнее о форматировании

КАПЧА
Этот тест необходим защиты от спама
14 + 3 =
Решите эту простую математическую задачу и введите результат. То есть для 1+3, введите 4.
To prevent automated spam submissions leave this field empty.