Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.word.docmanagement
|
|||
|
|||
Superscript footnotes after importing from Word Perfect
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? -- Janelle |
#2
Posted to microsoft.public.word.docmanagement
|
|||
|
|||
Superscript footnotes after importing from Word Perfect
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 not auto-update your footnote references. Janelle;2519957 Wrote: 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? -- Janelle -- Henk57 |
#3
Posted to microsoft.public.word.docmanagement
|
|||
|
|||
Superscript footnotes after importing from Word Perfect
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 -- macropod [MVP - Microsoft Word] ------------------------- "Janelle" wrote in message ... 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? -- Janelle |
Reply |
Thread Tools | |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
How to enable Footnotes in Word 2003 when View Footnotes is OFF? | Microsoft Word Help | |||
superscript or subscript in word? | Microsoft Word Help | |||
how to make footnotes appear in superscript automatically | Microsoft Word Help | |||
Find should search text AND footnotes when starting in footnotes | Microsoft Word Help | |||
need to use ^ as subscript with word over it in superscript | Microsoft Word Help |