Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.word.docmanagement
|
|||
|
|||
How to keep the end note numberings permanently
I have used the Insert Endnote facility to insert numbered references
at the end of a document. I know want to split the manuscript into two separate files, one with the text and another with the references. Is it possible to keep the endnote numbers in the text and the reference file? I learned to do this for the crossreferences by pressing ctrl- shift-F9. I want a similar solution for the end note numbers. |
#2
Posted to microsoft.public.word.docmanagement
|
|||
|
|||
How to keep the end note numberings permanently
Doug Robbins has posted a macro that does this. You may want to try it
on a copy of the document first: Sub ReplaceEndnotes() ' Macro created 29/09/99 by Doug Robbins to replace endnotes 'with textnotes 'at end of document 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)" 'Use ";" instead of "," 'if you're using comma as a 'decimal sign. .Replacement.Text = "\2" .Forward = True .Wrap = wdFindContinue .Format = True .MatchWildcards = True End With Selection.Find.Execute Replace:=wdReplaceAll End Sub -- Stefan Blom Microsoft Word MVP " roland" wrote in message ups.com... I have used the Insert Endnote facility to insert numbered references at the end of a document. I know want to split the manuscript into two separate files, one with the text and another with the references. Is it possible to keep the endnote numbers in the text and the reference file? I learned to do this for the crossreferences by pressing ctrl- shift-F9. I want a similar solution for the end note numbers. |
#3
Posted to microsoft.public.word.docmanagement
|
|||
|
|||
How to keep the end note numberings permanently
This macro is what I neede but it did not work.
I found out another swede had had problems with this macro discussed in this line: http://groups.google.se/group/micros...b28df76b6397d9 I finaly found why the macro did not work. The line ..Text = "(a)([0-9]{1,})(a)" 'Use ";" instead of "," 'if you're using comma as a 'decimal sign. should be ..Text = "(a)([0-9]*)(a)" 'Use ";" instead of "," 'if you're using comma as a 'decimal sign. in the swedish version of Word2003 Greetings Roland Andersson On 10 Apr, 09:50, "Stefan Blom" wrote: Doug Robbins has posted a macro that does this. You may want to try it on a copy of the document first: Sub ReplaceEndnotes() ' Macro created 29/09/99 by Doug Robbins to replaceendnotes 'with textnotes 'at end of document 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)" 'Use ";" instead of "," 'if you're using comma as a 'decimal sign. .Replacement.Text = "\2" .Forward = True .Wrap = wdFindContinue .Format = True .MatchWildcards = True End With Selection.Find.Execute Replace:=wdReplaceAll End Sub -- Stefan Blom Microsoft Word MVP " roland" wrote in message ups.com... I have used the Insert Endnote facility to insert numbered references at the end of a document. I know want to split the manuscript into two separate files, one with the text and another with the references. Is it possible to keep the endnote numbers in the text and the reference file? I learned to do this for the crossreferences by pressing ctrl- shift-F9. I want a similar solution for the end note numbers.- Dölj citerad text - - Visa citerad text - |
#4
Posted to microsoft.public.word.docmanagement
|
|||
|
|||
How to keep the end note numberings permanently
Glad you got it sorted and thank you for the feedback.
It is odd that the macro didn't work for you; it certainly worked on my Swedish version of Word 2000. Must be a bug with Word 2003 (which I currently do not have access to). -- Hälsningar Stefan Blom Microsoft Word MVP " roland" wrote in message ups.com... This macro is what I neede but it did not work. I found out another swede had had problems with this macro discussed in this line: http://groups.google.se/group/micros...b28df76b6397d9 I finaly found why the macro did not work. The line ..Text = "(a)([0-9]{1,})(a)" 'Use ";" instead of "," 'if you're using comma as a 'decimal sign. should be ..Text = "(a)([0-9]*)(a)" 'Use ";" instead of "," 'if you're using comma as a 'decimal sign. in the swedish version of Word2003 Greetings Roland Andersson On 10 Apr, 09:50, "Stefan Blom" wrote: Doug Robbins has posted a macro that does this. You may want to try it on a copy of the document first: Sub ReplaceEndnotes() ' Macro created 29/09/99 by Doug Robbins to replaceendnotes 'with textnotes 'at end of document 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)" 'Use ";" instead of "," 'if you're using comma as a 'decimal sign. .Replacement.Text = "\2" .Forward = True .Wrap = wdFindContinue .Format = True .MatchWildcards = True End With Selection.Find.Execute Replace:=wdReplaceAll End Sub -- Stefan Blom Microsoft Word MVP " roland" wrote in message ups.com... I have used the Insert Endnote facility to insert numbered references at the end of a document. I know want to split the manuscript into two separate files, one with the text and another with the references. Is it possible to keep the endnote numbers in the text and the reference file? I learned to do this for the crossreferences by pressing ctrl- shift-F9. I want a similar solution for the end note numbers.- Dölj citerad text - - Visa citerad text - |
Reply |
Thread Tools | |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Pop-Up Note | Microsoft Word Help | |||
Merging 3 separate documents w/ different page numberings to one | Microsoft Word Help | |||
How do you create a margin note in Word? A margin note is like a. | Microsoft Word Help | |||
"tabs" in outline numbered bullets & numberings | Microsoft Word Help | |||
DELETE NUMBERINGS | Microsoft Word Help |