Reply
 
Thread Tools Display Modes
  #1   Report Post  
Posted to microsoft.public.word.docmanagement
Ingrid Ingrid is offline
external usenet poster
 
Posts: 8
Default Can I convert footnote numbers to text

I'm working with a document where the author has used the automated endnote
facility in Word. Since this is about to be translated into Quark for
typesetting, I need the endnote marks and the numbers with the endnotes to be
real numbers, not endnote marks -- Quark will not read them as numbers.
I was sure I did the conversion using ActiveDocument.ConvertNumbersToText in
Visual Basic once before, but I can't seem to make it work. Help! There are
20 chapters with about 40 endnotes each.
  #2   Report Post  
Posted to microsoft.public.word.docmanagement
Stefan Blom[_3_] Stefan Blom[_3_] is offline
external usenet poster
 
Posts: 6,897
Default Can I convert footnote numbers to text

ActiveDocument.ConvertNumbersToText only works with paragraph numbering (and
LISTNUM fields). For endnotes, you can use the following macro created by
MVP Doug Robbins:

Sub ConvertEndNotesToText()
'Created by Doug Robbins

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

End Sub

If you need assistance, see http://www.gmayor.com/installing_macro.htm.

--
Stefan Blom
Microsoft Word MVP



"ingrid" wrote in message
...
I'm working with a document where the author has used the automated
endnote
facility in Word. Since this is about to be translated into Quark for
typesetting, I need the endnote marks and the numbers with the endnotes to
be
real numbers, not endnote marks -- Quark will not read them as numbers.
I was sure I did the conversion using ActiveDocument.ConvertNumbersToText
in
Visual Basic once before, but I can't seem to make it work. Help! There
are
20 chapters with about 40 endnotes each.




  #3   Report Post  
Posted to microsoft.public.word.docmanagement
Stefan Blom[_3_] Stefan Blom[_3_] is offline
external usenet poster
 
Posts: 6,897
Default Can I convert footnote numbers to text

ActiveDocument.ConvertNumbersToText only works with paragraph numbering (and
LISTNUM fields). For endnotes, you can use the following macro created by
MVP Doug Robbins:

Sub ConvertEndNotesToText()
'Created by Doug Robbins

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

End Sub

If you need assistance, see http://www.gmayor.com/installing_macro.htm.

--
Stefan Blom
Microsoft Word MVP



"ingrid" wrote in message
...
I'm working with a document where the author has used the automated
endnote
facility in Word. Since this is about to be translated into Quark for
typesetting, I need the endnote marks and the numbers with the endnotes to
be
real numbers, not endnote marks -- Quark will not read them as numbers.
I was sure I did the conversion using ActiveDocument.ConvertNumbersToText
in
Visual Basic once before, but I can't seem to make it work. Help! There
are
20 chapters with about 40 endnotes each.




Reply
Thread Tools
Display Modes

Posting Rules

Smilies are On
[IMG] code is On
HTML code is Off

Forum Jump

Similar Threads
Thread Thread Starter Forum Replies Last Post
convert regular numbers to footnote numbers in document momsaway Microsoft Word Help 1 April 19th 09 10:09 PM
Making footnote numbers and footnotes plain text for Web pdrew Microsoft Word Help 1 February 16th 09 12:08 PM
Making Word 2000 footnote numbers and footnotes plain text for Web pdrew Page Layout 2 February 3rd 09 03:28 PM
How do I hide footnote numbers in text, but keep end notes visible Mitch Microsoft Word Help 3 January 5th 07 09:22 PM
How to convert footnote callouts to unlinked superscript numbers? NancyH Microsoft Word Help 1 March 24th 06 08:09 PM


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

Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Copyright ©2004-2024 Microsoft Office Word Forum - WordBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Word"