A Microsoft Office (Excel, Word) forum. OfficeFrustration

If this is your first visit, be sure to check out the FAQ by clicking the link above. You may have to register before you can post: click the register link above to proceed. To start viewing messages, select the forum that you want to visit from the selection below.

Go Back   Home » OfficeFrustration forum » Microsoft Word » Page Layout
Site Map Home Register Authors List Search Today's Posts Mark Forums Read  

Making Word 2000 footnote numbers and footnotes plain text for Web



 
 
Thread Tools Display Modes
  #1  
Old February 2nd, 2009, 06:58 PM posted to microsoft.public.word.pagelayout
pdrew
external usenet poster
 
Posts: 2
Default Making Word 2000 footnote numbers and footnotes plain text for Web

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!
  #2  
Old February 3rd, 2009, 09:56 AM posted to microsoft.public.word.pagelayout
Doug Robbins - Word MVP
external usenet poster
 
Posts: 8,239
Default Making Word 2000 footnote numbers and footnotes plain text for Web

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



  #3  
Old February 3rd, 2009, 02:28 PM posted to microsoft.public.word.pagelayout
Suzanne S. Barnhill
external usenet poster
 
Posts: 31,786
Default Making Word 2000 footnote numbers and footnotes plain text for Web

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






 




Thread Tools
Display Modes

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

vB code is On
Smilies are On
[IMG] code is Off
HTML code is Off
Forum Jump


All times are GMT +1. The time now is 04:07 AM.


Powered by vBulletin® Version 3.6.4
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Copyright ©2004-2024 OfficeFrustration.
The comments are property of their posters.