Статьи из блога

Преобразование сносок в обычный текст

На форуме был задан вопрос о возможности преобразования сносок в обычный текст (с небольшим форматированием). Я нашел решение и предлагаю его в виде макроса.

Sub fnToText()
'преобразование сносок в обычный текст
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) & Chr(151) & Chr(32)  'вставляем длинное тире
  fn.Delete 'удаляем сноски
Next i
End Sub

Результат преобразования можно видеть на скриншоте:

 

twitter.com facebook.com vkontakte.ru odnoklassniki.ru mail.ru ya.ru rutvit.ru myspace.com technorati.com digg.com friendfeed.com pikabu.ru blogger.com liveinternet.ru livejournal.ru memori.ru google.com bobrdobr.ru mister-wong.ru yahoo.com yandex.ru del.icio.us
Вы можете помочь в развитии сайта, сделав пожертвование:

Или помочь сайту популярной криптовалютой:

 

BTC Адрес: 1Pi3a4c6sJPbfF2sSYR2noy61DMBkncSTQ

 

ETH Адрес: 0x7d046a6eaa1bd712f7a6937b042e9eee4998f634

 

LTC Адрес: LUyT9HtGjtDyLDyEbLJZ8WZWGYUr537qbZ

 

DOGE Адрес: DENN2ncxBc6CcgY8SbcHGpAF87siBVq4tU

 

BAT Адрес: 0x7d046a6eaa1bd712f7a6937b042e9eee4998f634

 

XRP Адрес: rEb8TK3gBgk5auZkwc6sHnwrGVJH8DuaLh Депозит Tag: 105314946

 

USDT (ERC-20) Адрес: 0x7d046a6eaa1bd712f7a6937b042e9eee4998f634

 

Яндекс Деньги: 410013576807538

 

Вебмани (R ещё работает): R140551758553 или Z216149053852

 

А тут весь список наших разных крипто адресов, может какой добрый человек пожертвует немного монет или токенов - получит плюсик в карму от нас :) Благо Дарим, за любую помощь!

 

Еще записи по вопросам использования Microsoft Word:

Комментариев: 2

  1. Аноним
    16.02.2010 в 20:50 | #1

    а как сделать то же со входами указателя? то есть тексты входа повставлять в текст допустим в угловых скобках

  2. MacH
    19.06.2012 в 17:31 | #2

    Это тоже подойдёт, правда не помню откуда.

    Sub ReadFootNotes()

    For Each com In ActiveDocument.Footnotes

    com.Reference.Select

    Selection.Font.ColorIndex = wdRed

    Selection.TypeText Text:="{" & com.Range.Text & "}"

    Next

    End Sub

Оставьте комментарий!

(обязательно)

^ Наверх