Замена картинок в Word на их имена файлов

[Alexufo]

Народ, вот такая проблема, требует работодатель файл doc названиями имен файлов картинок, которые лежат в отдельной папке.
Может кто помочь макросом к ворду?

 

[banIDit]

Ответ: Замена картинок в Word на их имена файлов

Если я правильно понял тему, то можно еще скопировать имена файлов в буфер из Total Commander.

 

[sakhar]

Ответ: Замена картинок в Word на их имена файлов

А при чем тут Индизайн?

 

[Alexufo]

Ответ: Замена картинок в Word на их имена файлов

Допустим не причем, InDesign только косвенно.
Я сформулирую тему еще раз.
Есть статья в ворде со скриншотами.Работодатель требует скриншоты из текста убрать и положить в отдельную папку ,а вместо них оставить только
имена файлов ( выделенные пурпурным цветом ).
Это же как то можно автоматизировать....

 

[banIDit]

Ответ: Замена картинок в Word на их имена файлов

Если картинки линкованые, то макрос будет на пару строк кода. Как ты мы обсуждали такую возможность, был даже рабочий пример скрипта, но вот не помню когда и с кем...

 

[Alexufo]

Ответ: Замена картинок в Word на их имена файлов

Да из ворда сохранять в html а потом чем нить уже забодяжить. Сам понимаю что это не сложно, но со скриптами я не знаком.

 

[ragman]

Ответ: Замена картинок в Word на их имена файлов

2banIDit Со мной 'cool)'

2All
вот такой скрипт в Ворде заменяет всю линкованую графику на имена файлов

Sub myReplaceFileName()
    While ActiveDocument.InlineShapes.Count > 0
        nm = ActiveDocument.InlineShapes.Item(0).LinkFormat.SourceName
        ActiveDocument.InlineShapes.Item(0).Select
        Selection.TypeText Text:=nm
    Wend
End Sub

 

[Stasssy]

Ответ: Замена картинок в Word на их имена файлов

У меня такая же проблема. Картинки непролинкованные. Можно ли их собрать в отдельную папку, а вместо них названия файлов оставить?