Reply
 
Thread Tools Display Modes
  #1   Report Post  
Posted to microsoft.public.word.docmanagement
roland roland is offline
external usenet poster
 
Posts: 8
Default 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   Report Post  
Posted to microsoft.public.word.docmanagement
Stefan Blom Stefan Blom is offline
external usenet poster
 
Posts: 8,428
Default 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   Report Post  
Posted to microsoft.public.word.docmanagement
roland roland is offline
external usenet poster
 
Posts: 8
Default 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   Report Post  
Posted to microsoft.public.word.docmanagement
Stefan Blom Stefan Blom is offline
external usenet poster
 
Posts: 8,428
Default 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

Posting Rules

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

Forum Jump

Similar Threads
Thread Thread Starter Forum Replies Last Post
Pop-Up Note hnyb1 Microsoft Word Help 6 December 1st 05 05:45 AM
Merging 3 separate documents w/ different page numberings to one delane Microsoft Word Help 1 August 16th 05 10:21 AM
How do you create a margin note in Word? A margin note is like a. ctjohnson Microsoft Word Help 2 April 13th 05 10:21 PM
"tabs" in outline numbered bullets & numberings egrose Microsoft Word Help 1 March 18th 05 05:56 AM
DELETE NUMBERINGS BUTTERFLY Microsoft Word Help 2 December 20th 04 11:17 AM


All times are GMT +1. The time now is 01:00 PM.

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"