embedded endnotes

[bob adler]

Hi:
I'm copy-editing a journal article with embedded endnotes
(Word 2000; Windows XP).
The web designer, who puts the article on the web, wants
the endnotes NOT embedded.
Is there a macro or other simple way to UNembed the
endnotes?
Thanks,
Bob Adler

[Robert M. Franz (RMF)]

Hi Bob

bob adler wrote:
> I'm copy-editing a journal article with embedded endnotes
> (Word 2000; Windows XP).
> The web designer, who puts the article on the web, wants
> the endnotes NOT embedded.
> Is there a macro or other simple way to UNembed the
> endnotes?

Starting from Normal view, I'd probably go into View |
Footnotes/Endnotes, and copy them all out into an empty document. If you
have troubles with the numbering not restarting correctly, either a
Ctrl+Q or a deletion (Alt-Select with mouse, cut) and subsequent renewal
of the numbering (apply a numbering via toolbar or a numbered style)
should do the trick.

Greetinx
..bob
...Word-MVP
--
/"\ ASCII Ribbon Campaign
\ /
X Against HTML
/ \ in e-mail & news

[bob adler]

Hi, Robert, and thank you.
I'm halfway (more or less) there:
I copied the endnotes into a new document. Each endnote
(as you anticipated) has the same superscript number (1)
before it. I tried using Alt + Select (of which I was
previously unaware) to select a vertical line of the
superscript number 1s to delete them but wherever the
endnote exceeded one line of text, the succeeding lines
of text had been lined up under the note number. Their
first letters got deleted with the numbers.

If I could delete only the numbers I'd be able, as you
suggest, to format>number them anew.
Can you help?
Thanks, again.
Bob Adler
>-----Original Message-----
>Hi Bob
>
>bob adler wrote:
>> I'm copy-editing a journal article with embedded
endnotes
>> (Word 2000; Windows XP).
>> The web designer, who puts the article on the web,
wants
>> the endnotes NOT embedded.
>> Is there a macro or other simple way to UNembed the
>> endnotes?
>
>Starting from Normal view, I'd probably go into View |
>Footnotes/Endnotes, and copy them all out into an empty
document. If you
>have troubles with the numbering not restarting
correctly, either a
>Ctrl+Q or a deletion (Alt-Select with mouse, cut) and
subsequent renewal
>of the numbering (apply a numbering via toolbar or a
numbered style)
>should do the trick.
>
>Greetinx
>..bob
>...Word-MVP
>--
> /"\ ASCII Ribbon Campaign
> \ /
> X Against HTML
> / \ in e-mail & news
>
>.
>

[Robert M. Franz (RMF)]

Hi Bob

bob adler wrote:
> I'm halfway (more or less) there:
> I copied the endnotes into a new document. Each endnote
> (as you anticipated) has the same superscript number (1)
> before it. I tried using Alt + Select (of which I was
> previously unaware) to select a vertical line of the
> superscript number 1s to delete them but wherever the
> endnote exceeded one line of text, the succeeding lines
> of text had been lined up under the note number. Their
> first letters got deleted with the numbers.
>
> If I could delete only the numbers I'd be able, as you
> suggest, to format>number them anew.

The quickest way is possibly to select all you got in that endnote-only
document (CTRL A) and format the paragraph to have a hanging indent of,
say, half a cm (or inch, if you're from that part of the world :-)).
Doesn't matter, just has to be easily more room than the the [1]s.

Now the selection will be easy.

The purists amongst us would of course change the underlying style
instead of the paragraph (then you don't have to select anything first),
but that won't be necessary here, I reckon.

An alltogether different approach would be to try search/replace-ing the
numbers with a wildcard search. Since the roundabout looks quicker, not
really worth the effort unless you're really fluent with word's RegEx.

2cents
..bob
...Word-MVP
--
/"\ ASCII Ribbon Campaign
\ /
X Against HTML
/ \ in e-mail & news

Hi, Robert.
Works for me. Thanks. Now, if I only knew what RegEx
was...
Bob
PS: I hope this is not HTML
>-----Original Message-----
>Hi Bob
>
>bob adler wrote:
>> I'm halfway (more or less) there:
>> I copied the endnotes into a new document. Each
endnote
>> (as you anticipated) has the same superscript number
(1)
>> before it. I tried using Alt + Select (of which I was
>> previously unaware) to select a vertical line of the
>> superscript number 1s to delete them but wherever the
>> endnote exceeded one line of text, the succeeding
lines
>> of text had been lined up under the note number.
Their
>> first letters got deleted with the numbers.
>>
>> If I could delete only the numbers I'd be able, as you
>> suggest, to format>number them anew.
>
>The quickest way is possibly to select all you got in
that endnote-only
>document (CTRL A) and format the paragraph to have a
hanging indent of,
>say, half a cm (or inch, if you're from that part of the
world :-)).
>Doesn't matter, just has to be easily more room than the
the [1]s.
>
>Now the selection will be easy.
>
>The purists amongst us would of course change the
underlying style
>instead of the paragraph (then you don't have to select
anything first),
>but that won't be necessary here, I reckon.
>
>An alltogether different approach would be to try
search/replace-ing the
>numbers with a wildcard search. Since the roundabout
looks quicker, not
>really worth the effort unless you're really fluent with
word's RegEx.
>
>2cents
>..bob
>...Word-MVP
>--
> /"\ ASCII Ribbon Campaign
> \ /
> X Against HTML
> / \ in e-mail & news
>
>.
>

[bob adler]

Hi, Robert.
I hope I'm not wearing you out with this.
I started recording a macro to automate your
instructions. I got to the point where the endnotes in
the new document were selected and the hanging indent was
created. BUT, I couldn't deselect the text (so that I
could then Alt+mouse-select the endnotes prior to
deleting them). How can I deselect text while the record
macro is running?
Thanks, again.
Best,
Bob
>-----Original Message-----
>Hi Bob
>
>bob adler wrote:
>> I'm halfway (more or less) there:
>> I copied the endnotes into a new document. Each
endnote
>> (as you anticipated) has the same superscript number
(1)
>> before it. I tried using Alt + Select (of which I was
>> previously unaware) to select a vertical line of the
>> superscript number 1s to delete them but wherever the
>> endnote exceeded one line of text, the succeeding
lines
>> of text had been lined up under the note number.
Their
>> first letters got deleted with the numbers.
>>
>> If I could delete only the numbers I'd be able, as you
>> suggest, to format>number them anew.
>
>The quickest way is possibly to select all you got in
that endnote-only
>document (CTRL A) and format the paragraph to have a
hanging indent of,
>say, half a cm (or inch, if you're from that part of the
world :-)).
>Doesn't matter, just has to be easily more room than the
the [1]s.
>
>Now the selection will be easy.
>
>The purists amongst us would of course change the
underlying style
>instead of the paragraph (then you don't have to select
anything first),
>but that won't be necessary here, I reckon.
>
>An alltogether different approach would be to try
search/replace-ing the
>numbers with a wildcard search. Since the roundabout
looks quicker, not
>really worth the effort unless you're really fluent with
word's RegEx.
>
>2cents
>..bob
>...Word-MVP
>--
> /"\ ASCII Ribbon Campaign
> \ /
> X Against HTML
> / \ in e-mail & news
>
>.
>

[Robert M. Franz (RMF)]

HI Bob

bob adler wrote:
> I started recording a macro to automate your
> instructions.

Oh, I wasn't aware that you were looking for way to automate this
(didn't sound like a recurring issue :-)).


> I got to the point where the endnotes in
> the new document were selected and the hanging indent was
> created. BUT, I couldn't deselect the text (so that I
> could then Alt+mouse-select the endnotes prior to
> deleting them). How can I deselect text while the record
> macro is running?

I'm not sure you can do this in VBA – but this doesn't mean anythign,
really! If none else jumps in here, I suggest you go ask in the .vba group.

Greetinx
..bob
...Word-MVP
....if the Alt-Selection doesn't work in VBA, the searching with Regular
Expressions will have to be implemented.
--
/"\ ASCII Ribbon Campaign
\ /
X Against HTML
/ \ in e-mail & news

[bob adler]

Hi, Robert.
Thanks. Will do. (Recurring)
Best,
bob
>-----Original Message-----
>HI Bob
>
>bob adler wrote:
>> I started recording a macro to automate your
>> instructions.
>
>Oh, I wasn't aware that you were looking for way to
automate this
>(didn't sound like a recurring issue :-)).
>
>
>> I got to the point where the endnotes in
>> the new document were selected and the hanging indent
was
>> created. BUT, I couldn't deselect the text (so that I
>> could then Alt+mouse-select the endnotes prior to
>> deleting them). How can I deselect text while the
record
>> macro is running?
>
>I'm not sure you can do this in VBA - but this doesn't
mean anythign,
>really! If none else jumps in here, I suggest you go ask
in the .vba group.
>
>Greetinx
>..bob
>...Word-MVP
>....if the Alt-Selection doesn't work in VBA, the
searching with Regular
>Expressions will have to be implemented.
>--
> /"\ ASCII Ribbon Campaign
> \ /
> X Against HTML
> / \ in e-mail & news
>
>.
>

[Doug Robbins - Word MVP]

I gave you a macro in the vba newsgroup. In that post however you did not
mention the booknote references that the printer may want deleted from the
text as well. If he does, then use:

Dim Source As Document, Target As Document, aen As Endnote, i As Integer
Set Source = ActiveDocument
Set Target = Documents.Add
i = 1
For Each aen In Source.Endnotes
Target.Range.InsertAfter i & "." & vbTab & aen.Range & vbCr
i = i + 1
aen.Reference.Delete
Next aen
Dialogs(wdDialogFileSaveAs).Show


--
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" > wrote in message
...
> Hi, Robert.
> Thanks. Will do. (Recurring)
> Best,
> bob
> >-----Original Message-----
> >HI Bob
> >
> >bob adler wrote:
> >> I started recording a macro to automate your
> >> instructions.
> >
> >Oh, I wasn't aware that you were looking for way to
> automate this
> >(didn't sound like a recurring issue :-)).
> >
> >
> >> I got to the point where the endnotes in
> >> the new document were selected and the hanging indent
> was
> >> created. BUT, I couldn't deselect the text (so that I
> >> could then Alt+mouse-select the endnotes prior to
> >> deleting them). How can I deselect text while the
> record
> >> macro is running?
> >
> >I'm not sure you can do this in VBA - but this doesn't
> mean anythign,
> >really! If none else jumps in here, I suggest you go ask
> in the .vba group.
> >
> >Greetinx
> >..bob
> >...Word-MVP
> >....if the Alt-Selection doesn't work in VBA, the
> searching with Regular
> >Expressions will have to be implemented.
> >--
> > /"\ ASCII Ribbon Campaign
> > \ /
> > X Against HTML
> > / \ in e-mail & news
> >
> >.
> >

[bob adler]

Hi, Doug:
Just got it there. Thanks for all.
Bob Adler
>-----Original Message-----
>I gave you a macro in the vba newsgroup. In that post
however you did not
>mention the booknote references that the printer may
want deleted from the
>text as well. If he does, then use:
>
>Dim Source As Document, Target As Document, aen As
Endnote, i As Integer
>Set Source = ActiveDocument
>Set Target = Documents.Add
>i = 1
>For Each aen In Source.Endnotes
> Target.Range.InsertAfter i & "." & vbTab & aen.Range
& vbCr
> i = i + 1
> aen.Reference.Delete
>Next aen
>Dialogs(wdDialogFileSaveAs).Show
>
>
>--
>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" > wrote
in message
...
>> Hi, Robert.
>> Thanks. Will do. (Recurring)
>> Best,
>> bob
>> >-----Original Message-----
>> >HI Bob
>> >
>> >bob adler wrote:
>> >> I started recording a macro to automate your
>> >> instructions.
>> >
>> >Oh, I wasn't aware that you were looking for way to
>> automate this
>> >(didn't sound like a recurring issue :-)).
>> >
>> >
>> >> I got to the point where the endnotes in
>> >> the new document were selected and the hanging
indent
>> was
>> >> created. BUT, I couldn't deselect the text (so
that I
>> >> could then Alt+mouse-select the endnotes prior to
>> >> deleting them). How can I deselect text while the
>> record
>> >> macro is running?
>> >
>> >I'm not sure you can do this in VBA - but this doesn't
>> mean anythign,
>> >really! If none else jumps in here, I suggest you go
ask
>> in the .vba group.
>> >
>> >Greetinx
>> >..bob
>> >...Word-MVP
>> >....if the Alt-Selection doesn't work in VBA, the
>> searching with Regular
>> >Expressions will have to be implemented.
>> >--
>> > /"\ ASCII Ribbon Campaign
>> > \ /
>> > X Against HTML
>> > / \ in e-mail & news
>> >
>> >.
>> >
>
>.
>