Superscript footnotes after importing from Word Perfect

  • Thread starter Thread starter Janelle
  • Start date Start date
J

Janelle

After importing a large document (500 pages) from WordPerfect, the footnote
numbers are not superscripted. How do I convert them without having to do
them one at a time?
 
I am afraid you cannot do this automatically. Well, if your document
doesn't contain any numbers (figures and tables are probably
numbered?), you could replace the numbers in the body text by
supersript numbers globally but your connection between the footnote
marker (which you want to superscript) and the footnote text is
probably broken so any further progressing involving new footnotes will
 
Hi Janelle,

It sounds like your footnote numbers have been converted to plain text and are no longer linked to the corresponding footnote text.
Evidently the converter you used is 'challenged'. You might have better luck with another converter or if you convert the
WordPerfect document into an intermediate format (eg RTF) that Word understands, then open that file with Word.

Alternatively, if you go through the document you now have and superscript the actual footnote numbers in the body of the document
(but not any other numbers), the following macro will then convert your footnote numbers into proper footnotes linked to the
corresponding footnote text:

Sub ReLinkFootNotes()
Dim i As Integer
Dim j As Integer
Dim k As Integer
Application.ScreenUpdating = False
With Selection
.Bookmarks.Add Range:=Selection.Range, Name:="FootNotes"
k = Paragraphs(1).Range.Words(1) – 1
j = k
For i = 1 To .Paragraphs.Count
If .Paragraphs(i).Range.Words(1) = j + 1 Then
j = j + 1
End If
Next i
End With
For i = k + 1 To j
StatusBar = "Finding Footnote Location: " & i
ActiveDocument.Select
With Selection.Find
.Forward = True
.Font.Superscript = True
.Text = i
.MatchWholeWord = False
.Execute
If .Found = True Then
.Parent.Select
With Selection
.Delete
.Footnotes.Add Range:=Selection.Range, Text:=""
End With
End If
End With
Next i
With ActiveDocument.Bookmarks("FootNotes").Range
For i = k + 1 To j
StatusBar = "Transferring Footnote: " & i
With .Paragraphs(1).Range
.Cut
With ActiveDocument.Footnotes(i).Range
.Paste
.Words(1).Delete
.Characters(.Characters.Count).Delete
.Style = "Footnote Text"
End With
End With
Next i
On Error Resume Next
.Bookmarks("FootNotes").Delete
End With
Application.ScreenUpdating = True
End Sub

Cheers
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Back
Top