Apply the footnote style to the selected footnote paragraphs.Take the selected footnote paragraphs, strip off any enclosing characters from the numbers.With ActiveDocument.Footnotes(i + l).Range StatusBar = "Transferring Footnote: " & i + l Footnotes.Add Range:=Selection.Range, Text:="" ' Delete/comment out the next line if not applicable ' if the in-line references are not enclosed in square brackets ' Change '""' string on the next line to whatever is appropriate StatusBar = "Finding Footnote Location: " & i + l Paragraphs(i).Range.Words(1) = j + 1 Then ' Delete the next line if the footnote references are not superscripted. ' (e.g.Text = "()" if there are no brackets) ' footnotes' numbers are enclosed in characters other than square brackets ' Change '' on the next line to whatever is appropriate if the selected The macro shows its progress on the status bar.ĭim i As Long, j As Long, k As Long, l As Long, FtRng As Range If you have any multi-paragraph footnotes, you can get around that issue by changing their internal paragraph markers to line feeds (i.e.
0 Comments
Leave a Reply. |