converting html-tagged text to footnotes

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 wrote in message
...
Hi everybody!

I have a document with citation-sources between html tags (e.g.,
fnBook, 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

Hi everybody!

I have a document with citation-sources between html tags (e.g.,
fnBook, 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

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

Fantastic! Thanks.

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