Макрос нужен

[izrukvruki]

Задача такая: делаем научный журнал, дают вордовский файл с формулами (с формулами ничего делать не нужно) и графиками/картинками. Картинки зачастую в самом ворде обрезаны, возможно у них в ворде пропорции искажены (сама картинка - 5 на 5 см, а автор ее специально вытянул и сделал 5 на 7 см). Отдельными файлами картинки не дают. Мне нужен макрос, который бы сохранил картинки отдельными файлами (с учетом их обрезки в ворде, размеры должны быть пропорциональны размеру в ворде, в максимально возможном качестве, в RGB и TIFF), вместо самих бы картинок вставить имена этих файлов (для последующей обработке в Индизайне макросом TFManagerCS3

Это должно работать как просто в тексте, так и внутри табличках (пример ниже - там табличка, внутри ячеек картинки стоят)

Вот это в ворде:

Вот так в индизайне

Если это возможно реализовать, то сколько это будет стоит?
Пишите в ЛС

 

[_MBK_]

Ваши картинки не видны, но , для начала, просто сохраните как docx и безо всякого макроса вытащите все что надо из архива

 

[izrukvruki]

вытащить их можно, но потом их нужно обрезать непонятно как... и расставить в нужные места, что иногда не очень очевидно...
Пять графиков, практически одинаковых на вид, разница видна только тому кто в теме этой статьи...

 

[_MBK_]

Гм, меня терзают смутные сомнения, что задача сильно взрослее для вордовской VBA реализации.
А если в PDF, который потом, скажем, иллюстратором по винтикам разгребать?

 

[Bebs]

Я думаю, что эту задачу можно решить следующим образом.
1. Открываем файл с внедренной графикой.

2. F5 — поиск и замена. Найти любой знак ^? . Поле "Заменить" оставляем пустым

В файле останутся только графические объекты и пустые таблицы

3. Сохранить как PDF

Последовательность действий можно записать в макрос

 

[LeonidB]

Можно текст и не удалять. В Акробате есть инструмент (в Document Processing) экспорта всех изображений сразу (Export All Images) в настраиваемом качестве и выбранного типа.

 

[izrukvruki]

Можно текст и не удалять. В Акробате есть инструмент (в Document Processing) экспорта всех изображений сразу (Export All Images) в настраиваемом качестве и выбранного типа.

Да, экспортировать так можно... Но потом картинки расставить довольно сложно...

А что заменить картинки на текст-счетчики (img1, img2, img3...) макросом сложно?

 

[LeonidB]

А что заменить картинки на текст-счетчики (img1, img2, img3...) макросом сложно?

Можно.

Sub Picture_del()
Dim oInlineShape As InlineShape
Dim i As Integer

i = 1
Selection.HomeKey Unit:=wdStory
For Each oInlineShape In ActiveDocument.InlineShapes
oInlineShape.Select
Selection.Delete Unit:=wdCharacter, Count:=1
Selection.TypeText Text:="img" & i
i = i + 1
Next
End Sub

 

[izrukvruki]

а после

oInlineShape.Select

сохранить выделение как tiff нельзя? или картинка сохранится целиком, без учета обрезания?

 

[kstati]

Сохранять как html пробовали?

 

[К.Т.]

сохранить выделение как tiff нельзя? или картинка сохранится целиком, без учета обрезания?

Как tif нельзя.

Можно в pdf:

Selection.ExportAsFixedFormat OutputFileName:="...", ExportFormat:=wdExportFormatPDF

 

[LeonidB]

Может, всё-таки есть смысл сначала вывести из Ворда pdf, потом из этого pdf выдрать картинки в виде tiff в указанную папку (они там будут поименованы и пронумерованы по порядку - потом TotalCommander'ом можно выделить все и переименовать по-другому, к примеру, в img1... и т. п.), а затем в исходном вордовском файле уже удалить эти картинки, заменив их этими самыми img1...?

 

[izrukvruki]

а нумерация картинок совпадет?

 

[LeonidB]

а нумерация картинок совпадет?

Пробуйте Потом расскажете

 

[izrukvruki]

Как tif нельзя.

Странно, хотя сам ворд позволяет

 

[LeonidB]

Странно, хотя сам ворд позволяет

Сам-то Ворд позволяет, но для VBA эта задача не такая тривиальная, как умные люди говорят.
Может, не стоит усложнять?

 

[Bebs]

Можно текст и не удалять. В Акробате есть инструмент (в Document Processing) экспорта всех изображений сразу (Export All Images) в настраиваемом качестве и выбранного типа.

Есть, но выбор форматов там довольно ограничен и если иллюстрация векторная, она растрируется

 

[LeonidB]

Есть, но выбор форматов там довольно ограничен и если иллюстрация векторная, она растрируется

Так речь же сейчас идёт именно о растре, причём в формате tiff.

Мне нужен макрос, который бы сохранил картинки отдельными файлами (с учетом их обрезки в ворде, размеры должны быть пропорциональны размеру в ворде, в максимально возможном качестве, в RGB и TIFF)

 

[Bebs]

Задача такая: делаем научный журнал, дают вордовский файл с формулами (с формулами ничего делать не нужно) и графиками/картинками.

График или диаграмма в научном журнале нередко сделаны в Exel, т.е. они векторные. Зачем же их растрировать и сохранять как TIFF?

 

[Bebs]

Если предварительно преобразовать в документе все таблицы в текст, используя макрос

Sub AllTblsToText()
'все таблицы в текст
Dim tbl As Table
For Each tbl In ActiveDocument.Tables
   tbl.ConvertToText (wdSeparateByParagraphs)
Next tbl
End Sub

то после удаления всех символов в файле останутся только графические объекты.
Дальше включив в поиске—замене режим "подстановочные знаки" (вордовский аналог Grep) и заменив "любой знак" (?) на "^&^m" (искомый текст+разрыв страницы) получим каждый рисунок на отдельной странице.

Файл сохраняем как PDF.
Затем в акробате можно разбить полученный PDF на отдельные страницы, сохранив каждую отдельным файлом.