Hi Bill,

The code I posted works fine on a document that has the footnotes grouped at
the end and selected, as described in my original post. The document you're
converting from pdf (not a document "with footnotes from older programs" as
you originally described it) already has the footnotes formatted as such at
the bottom of each page.

Finding superscripted text in the document and converting it to a Word
footnote link is trivial, and my code shows you how to do that.

Without selecting the footnote text, getting Word to recognise where the
corresponding footnote for any superscripted body text sits in the document
can be problematic, especially if the footnote continues onto the next page,
as it does with your footnote 3, for example. That's why my code works from
the premise that the footnotes were grouped at the end and selected.

If you can at least:
.. put the whole of each footnote together in one paragraph; and
.. make sure each footnote has a space separating the footnote number and the
first word of the footnote,
then a few minor modifications to my code should get you under way.

The modifications would be to:
.. add a new variable near the top:
Dim k As Integer
.. change the line:
j = 0
to
k = Paragraphs(1).Range.Words(1) - 1
j = k
.. change the two lines
For i = 1 To j
to
For i = k + 1 To j

With these modifications, the macro will process all footnotes in the
selection starting from whatever number the first selected footnote
paragraph starts with.

Cheers


--
macropod
[MVP - Microsoft Word]


"captaingeek" wrote in message
oups.com...
Been banging my head off the wall here trying to figure this out with
no luck.

Macropod, do you have an example paragraph I could run this on?

Anyway, by reading the macro you made I was able to figure out how to
find superscript font's.

With this knowledge, and the rest of your macro I may be able to create
a better macro that will meet our needs.

I will let you know.

Sub Macro1()
'
' Macro1 Macro
' Macro recorded 6/5/2006 by William Speers
'
Selection.Find.ClearFormatting
With Selection.Find
.Text = "1"
.Replacement.Text = ""
.Forward = True
.Font.Superscript = True
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With