converting html-tagged text to footnotes

[Doug Robbins]

The following code in a macro will do it:

' Throw-away macro createded 7/11/2004 by Doug Robbins
'
Dim fntext As String
Selection.HomeKey wdStory
Selection.Find.ClearFormatting
With Selection.Find
Do While .Execute(FindText:="\<fn\>*\</fn\>", MatchWildcards:=True,
Wrap:=wdFindContinue, Forward:=True) = True
fntext = Selection.Range.Text
fntext = Mid(fntext, 5, Len(fntext) - 9)
Selection.Delete
ActiveDocument.Footnotes.Add Range:=Selection.Range, Text:=fntext
Loop
End With


--
Please respond to the Newsgroup for the benefit of others who may be
interested. Questions sent directly to me will only be answered on a paid
consulting basis.

Hope this helps,
Doug Robbins - Word MVP

 

[Moshe Wisnefsky]

Hi everybody!

I have a document with citation-sources between html tags (e.g.,
<fn>Book, p. x</fn>) and I need to convert all of these to regular
footnotes. Is there a way? Or, alternatively, is there a more specific
user group I should post this message to?

Thanks,

Moshe

 

[Moshe Wisnefsky]

On Sun, 11 Jul 2004 20:32:09 +1000, "Doug Robbins"

Fantastic! Thanks.