Re: Making Word 2000 footnote numbers and footnotes plain text for Web

Tech-Archive recommends: Repair Windows Errors & Optimize Windows Performance

I have noted that pasting text from a Word document into a plain-text email
accomplishes this automatically, even putting the footnote numbers in
brackets.

--
Suzanne S. Barnhill
Microsoft MVP (Word)
Words into Type
Fairhope, Alabama USA
http://word.mvps.org

"Doug Robbins - Word MVP" <dkr@xxxxxxxxxxxxxxxxxx> wrote in message
news:Ogeg0WehJHA.3708@xxxxxxxxxxxxxxxxxxxxxxx
The following macro will do that for EndNotes. You could probably do
something similar with footnotes, but you may run into pagination
problems. Can you import .pdf documents into Dreamweaver?



' Macro created 29/09/99 by Doug Robbins to replace endnotes with
textnotes at end of document

' to replace the endnote reference in the body of the document with a
superscript number.

'

Dim aendnote As Endnote

For Each aendnote In ActiveDocument.Endnotes

ActiveDocument.Range.InsertAfter vbCr & aendnote.Index & vbTab &
aendnote.Range

aendnote.Reference.InsertBefore "a" & aendnote.Index & "a"

Next aendnote

For Each aendnote In ActiveDocument.Endnotes

aendnote.Reference.Delete

Next aendnote

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find.Replacement.Font

.Superscript = True

End With

With Selection.Find

.Text = "(a)([0-9]{1,})(a)"

.Replacement.Text = "\2"

.Forward = True

.Wrap = wdFindContinue

.Format = True

.MatchWildcards = True

End With

Selection.Find.Execute Replace:=wdReplaceAll


--
Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP

"pdrew" <pdrew@xxxxxxxxxxxxxxxxxxxxxxxxx> wrote in message
news:79AFDBF8-F1B8-4834-A78D-B8BC834D40F5@xxxxxxxxxxxxxxxx
I need to import Word 2000 docs containing automatic footnotes into web
pages. I know that automatic footnotes do not import into HTML pages.
Is
there a way to turn off the coding of the automatic footnotes in the Word
doc, leaving just static text, so I can import the doc into Dreamweaver?
Thanks!





.

Relevant Pages

  • Re: Unlinking footnotes/endnotes from text
    ... numbered by chapter, and your macro converts them to a single continuous sequence, so I'd still need to renumber ... Regarding footnote/endnote placement, the most common scenario is that I'm asked to move all footnotes to the end of the document, ... ' Macro created 29/09/99 by Doug Robbins to replace endnotes with textnotes at end of document ... For Each aendnote In ActiveDocument.Endnotes ...
    (microsoft.public.word.vba.general)
  • RE: Making footnote numbers and footnotes plain text for Web
    ... Dreamweaver): First convert the footnotes to endnotes, ... For Each aendnote In ActiveDocument.Endnotes ... I know that automatic footnotes do not import into HTML pages. ...
    (microsoft.public.word.docmanagement)
  • =?utf-8?Q?Re:_automatically_extract_footno?= =?utf-8?Q?tes_into_new_file_and_=E2=80=A6?=
    ... Use a modification of the following macro, replacing Endnotes with Footnotes ... ' Macro created 29/09/99 by Doug Robbins to replace endnotes with textnotes at end of document ... For Each aendnote In ActiveDocument.Endnotes ...
    (microsoft.public.word.docmanagement)
  • Re: footnotes in mailmerge
    ... ' Macro created 29/09/99 by Doug Robbins to replace endnotes with textnotes at end of document ... ' Endnotes with Footnotes to do the same to Footnotes (but they will appear at the end of the document. ... For Each aendnote In ActiveDocument.Endnotes ...
    (microsoft.public.word.mailmerge.fields)
  • Re: Adding Cell Comments
    ... footnotes, but collected at the end of the document). ... cell, ... and choosing the Endnote option button. ... superscript number at the beginning of the endnote text. ...
    (microsoft.public.word.tables)