Разработка технической документации и технические писатели Технические писатели и разработка технической документации технические писатели в Телеграм 

 obmen_soobsheniyami.png Чат для технических писателей 
 Зарегистрируйтесь
Страницы: 1
RSS
рисунки при экспорте в Word, рисунки сохраняются как ссылки, а надо - как изображения
 
Как сохранить рисунки в самом файле, а не ссылками на внешние изображения?

Делаю экспорт из H&M в RTF, картинки вставляются как ссылки. Если потом RTF сохраняю как MHT, то там рисунки есть, файл нормального размера. Если потом этот MHT сохраняю как DOCX, то рисунки опять заменяются на ссылки, файл весит очень мало.

PDF не предлагать :)
 
Я когда-то делал так: Нажмите Alt-F8 и введите новый макрос BreakLinks
Со следующим текстом:


Код
Private Sub InnerBreakLinks()
For Each objField In ActiveDocument.Fields
  If Not objField.LinkFormat Is Nothing Then
    objField.LinkFormat.Update
    objField.LinkFormat.BreakLink
    ActiveDocument.UndoClear
  End If
Next
End Sub

Private Sub InnerSaveAsDoc()
    Dim NewName As String
    NewName = ActiveDocument.Path & "\" & "WithPic_" & ActiveDocument.Name
    ActiveDocument.SaveAs2 FileName:=NewName, FileFormat:=wdFormatDocument
End Sub

Public Sub BreakLinks()
    Application.DisplayAlerts = False
    Call InnerSaveAsDoc
    Call InnerBreakLinks
    ActiveDocument.Save
    Application.DisplayAlerts = True
End Sub



Выполните макрос BreakLinks и сохраните документ
В каталоге с документом появится документ с именем WithPic_ + имя старого документа. В созданном документе все рисунки будут встроенными
 
что-то не работает... Все равно ссылки вместо картинок :(
 
Тогда попробуйте в меню Word Файл / Изменить связи с файлами (на вкладке Сведения)
И для каждой картинки не хранящейся в документе включить флажок Хранить в документе, и нажать кнопку Разорвать связь.
 
Вы меня навели на мысль о макросах, и я нашла на форуме VBA. Вроде сработало  :)  Спасибо!



Код
Public Sub EmbedLinkedGraphics()
'
' 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 - AuthorIT
' Modified 20-January-2004 DT - ActiveDocument.UndoClear added
' Simplified and changed by Fred Decker 28-February-2007

Dim objShape As Shape
Dim objField As Field
Dim objInlineShape As InlineShape
Dim objSelection As Selection

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
' ActiveDocument.ActiveWindow.View.Type = wdPrintView
MsgBox "Finished embedding all shapes, fields and inline shapes"
End Sub
 
У меня была такая же фигня, но я экспериментально убедился в том, что если сохранять файл как *.doc (документ Word 97-2003), то файлы с картинками остаются как ссылки, а если как *.docx - то картинки вставляются в файл
Страницы: 1
Читают тему