?

Log in

творчество

kamliv in korrektor_ru

Расстановка сносок

Коллеги, очень нуждаюсь в помощи. Есть большой текст в Word, в котором есть более 500 внутритекстовых сносок с указанием цитируемых источников такого типа: "текст цитаты" {Там же. С.83–84.}
Мне нужно преобразовать их в нормальные постраничные сноски. Нет ли какого-либо способа автоматизировать эту нудную и весьма времязатратную работу? Может, макрос существует подходящий? Поиск не дал нужного варианта.
Заранее благодарю.
Метки:

Comments

Ловите пока вот что. Этот код выносит в постраничные сноски конструкции в фигурных скобках.

Sub MakeFootNotes()
Dim RngSel As Range, RngFnd As Range, StrNote As String
Application.ScreenUpdating = False
With Selection
Set RngSel = .Range
With .Find
.ClearFormatting
.Replacement.ClearFormatting
.MatchWildcards = True
.Wrap = wdFindContinue
.Forward = True
.Text = "\{[!\}\{]{1,}\}"
Do While .Execute = True
Set RngFnd = ActiveDocument.Range(Start:=Selection.Start, End:=Selection.End)
StrNote = Mid(RngFnd.Text, 2, Len(RngFnd.Text) - 2)
ActiveDocument.Footnotes.Add RngFnd, , StrNote
RngFnd.Text = vbNullString
Loop
End With
End With
RngSel.Select
Set RngFnd = Nothing: Set RngSel = Nothing
Application.ScreenUpdating = True
End Sub
Буква_ё

Февраль 2017

Вс Пн Вт Ср Чт Пт Сб
   1234
567891011
12131415161718
19202122232425
262728    

Метки

Разработано LiveJournal.com