Наш канал на Youtube

Не раз обсуждавшаяся на нашем сайте тема импорта сносок из вордовских файлов пополнилась еще одним решением. Вот описание нового алгоритма работы со сносками, автор которого  — Максим Белецкий (Maxbor).

Сегодня реализовал решение по сабжу, которое давно напрашивалось (Неужели его никто не реализовал раньше?).
Итак,

1) Скрипт для MSWord, который преобразует сноски в документе в текст наряду, заключенный в <>.

Sub UnFoot()
‘преобразование сносок в обычный текст
Dim actdoc As Document
Dim fn As Word.Footnote
Dim rngFN As Word.Range
Dim i As Long
Set actdoc = ActiveDocument
‘работаем со сносками в обратном порядке (от последней до первой)
For i = actdoc.Footnotes.Count To 1 Step -1
Set fn = actdoc.Footnotes(i) ‘запоминаем сноску
Set rngFN = fn.Reference ‘определяем ссылку на сноску (знак сноски)
rngFN.Collapse wdCollapseEnd ‘перемещаемся в конец слова со знаком сноски
‘вставляем текст сноски после знака сноски с сохранением форматирования
rngFN.FormattedText = fn.Range.FormattedText
rngFN.InsertBefore Chr(60) ‘вставляем <
rngFN.InsertAfter Chr(62) ‘вставляем >
fn.Delete ‘удаляем сноски
Next i
End Sub

Взято отсюда http://wordexpert.ru/page/preobrazovanie-snosok-v-obychnyj-tekst и совсем немного подправлено.

2) После импорта в InDesign запускаем известный скрипт ReFoot от marc{at}indiscripts{dot}com   www.indiscripts.com

и имеем полный порядок со сносками в помещенном материале.

Публикуя этот материал, добавим, что решение преобразовывать сноски в текст с угловыми скобками полезно и для случая подготовки вордовского текста к загрузке в наладонник (не всегда же работа в файлом в программе Word завершается передачей его на верстку в InDesign).

В наладоннике или электронной книге до сносок в обычном вордовском файле добраться морочно, а когда текст после сноски будет в угловых скобках — это очень удобно.