Форум » Вопросы по форуму » Скрипт для ворда, позволяющий переносить сноски ворда » Ответить

Скрипт для ворда, позволяющий переносить сноски ворда

Thietmar: Скрипт для ворда, позволяющий переносить сноски ворда в тело текста и выделять красным. Sub footnoteToText() ' перенос сносок word в текст 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(32) & "(" 'добавляем открывающую скобку перед текстом сноски rngFN.InsertAfter ")" 'теперь закрывающую скобку 'форматируем текст сноски, в данном случае меняем цвет на красный rngFN.FormattedText.Font.Color = wdColorRed fn.Delete 'удаляем сноску Next i End Sub

Ответов - 0



полная версия страницы