put comment in endnote?

[bob adler]

Hi:
Word 2000. In reviewing a document, is there a way to
put a comment in an endnote or delete all endnotes?
Thanks,
Bob Adler

 

[Doug Robbins - Word MVP]

Use a macro with

Dim aen As EndNote
For each aen in ActiveDocument.EndNotes
aen.range.delete
aen.reference.delete
Next aen

--
Please post any further questions or followup to the newsgroups for the
benefit of others who may be interested. Unsolicited questions forwarded
directly to me will only be answered on a paid consulting basis.

Hope this helps
Doug Robbins - Word MVP

 

[bob adler]

Hi, Doug.
Thanks. I'm minimally VBA savvy but I'll try to use it.
Is this to put a comment in, or to delete?
Thanks, again.bob adler

 

[Doug Robbins - Word MVP]

Hi Bob,

That code will delete the endnotes. It is not possible to insert a comment
into an endnote, either manually or by code.

--
Please post any further questions or followup to the newsgroups for the
benefit of others who may be interested. Unsolicited questions forwarded
directly to me will only be answered on a paid consulting basis.

Hope this helps
Doug Robbins - Word MVP

 

[bob adler]

Hi, Doug:
The macro you gave me to delete endnotes works perfectly
can I delete them while leaving the endnote references up
in the text. I will need those numbers in the document
text to refer to the endnotes which are now in the new
endnote document created with the other macro (the one
that changes the superscript to regular font
and "unembeds" the endnotes).
If I delete each endnote manually (pretty tedious), the
references in the text remain. According to a Shauna
Kelly post (below) that is Word's default.

So, how can I macro the deletion of all the endnotes
while leaving the references to them in the text?

Thanks again; I'm learning...slowly.
bob adler
"Subject: Re: Footnotes in Track Changes
From: "Shauna Kelly"
<[email protected]> Sent: 5/1/2004
6:23:02 PM

Hi Alice

Yes, that's the correct behaviour. Or rather, that's what
Word was designed to do. If you had footnotes 1, 2 and 3.
And (with track changes on, you delete footnote 2, then
the last footnote is still numbered 3 until you
accept or reject all the changes."

 

[Doug Robbins - Word MVP]

Use this:

' 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

--
Please post any further questions or followup to the newsgroups for the
benefit of others who may be interested. Unsolicited questions forwarded
directly to me will only be answered on a paid consulting basis.

Hope this helps
Doug Robbins - Word MVP

 

[bob adler]

Doug:
Almost there.
I got an error message:Compile error. Syntax error.
I put a space after one of the ampersands and the program
ran. However, while it reformatted the endnotes
perfectly, it again deleted the endnote reference numbers
from the text of the article. I need those superscript
numbers in the text.
I appreciate how much time you are taking with this. I
hope some other users will benefit as well.
Hope you can help.
Thanks.
Bob Adler

-----Original Message-----
Use this:

' 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

--
Please post any further questions or followup to the newsgroups for the
benefit of others who may be interested. Unsolicited questions forwarded
directly to me will only be answered on a paid consulting basis.

Hope this helps
Doug Robbins - Word MVP

Hi, Doug:
The macro you gave me to delete endnotes works perfectly
can I delete them while leaving the endnote references up
in the text. I will need those numbers in the document
text to refer to the endnotes which are now in the new
endnote document created with the other macro (the one
that changes the superscript to regular font
and "unembeds" the endnotes).
If I delete each endnote manually (pretty tedious), the
references in the text remain. According to a Shauna
Kelly post (below) that is Word's default.

So, how can I macro the deletion of all the endnotes
while leaving the references to them in the text?

Thanks again; I'm learning...slowly.
bob adler
"Subject: Re: Footnotes in Track Changes
From: "Shauna Kelly"
<[email protected]> Sent: 5/1/2004
6:23:02 PM

Hi Alice

Yes, that's the correct behaviour. Or rather, that's what
Word was designed to do. If you had footnotes 1, 2 and 3.
And (with track changes on, you delete footnote 2, then
the last footnote is still numbered 3 until you
accept or reject all the changes."


possible
to insert a comment wrote
in message way
to

.

 

[Guest]

Doug:
Please disregard my earlier message today. Your macro is
working perfectly.
Thank you for all your help.
Bob Adler

-----Original Message-----
Use this:

' 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

--
Please post any further questions or followup to the newsgroups for the
benefit of others who may be interested. Unsolicited questions forwarded
directly to me will only be answered on a paid consulting basis.

Hope this helps
Doug Robbins - Word MVP

Hi, Doug:
The macro you gave me to delete endnotes works perfectly
can I delete them while leaving the endnote references up
in the text. I will need those numbers in the document
text to refer to the endnotes which are now in the new
endnote document created with the other macro (the one
that changes the superscript to regular font
and "unembeds" the endnotes).
If I delete each endnote manually (pretty tedious), the
references in the text remain. According to a Shauna
Kelly post (below) that is Word's default.

So, how can I macro the deletion of all the endnotes
while leaving the references to them in the text?

Thanks again; I'm learning...slowly.
bob adler
"Subject: Re: Footnotes in Track Changes
From: "Shauna Kelly"
<[email protected]> Sent: 5/1/2004
6:23:02 PM

Hi Alice

Yes, that's the correct behaviour. Or rather, that's what
Word was designed to do. If you had footnotes 1, 2 and 3.
And (with track changes on, you delete footnote 2, then
the last footnote is still numbered 3 until you
accept or reject all the changes."


possible
to insert a comment wrote
in message way
to

.