format of end references

[Guest]

I have used Word endnote to add references for papers nad the format is Word
default format. Endnote numbers appear as uppercase. I want to change it.
I need ordinary number with a paranthesis, like 1)
Where/how can I make this change.

 

[Stefan Blom]

See http://word.mvps.org/faqs/macrosvba/UnSuperscptFnotes.htm. Since
you want ")" rather than "." after numbers, in the macro suggested in
the article, you would change the line

.InsertAfter "." & vbTab

to

.InsertAfter ")" & vbTab

--
Stefan Blom
Microsoft Word MVP


in message
news:[email protected]...

 

[Guest]

Thanks Stefan
One more question. In body of the paper, also I need the "paranthesis" on
right side of numbers, as reference number. Is it possible?
--
Rasoul Khoshravan Azar
Kobe University, Kobe, Japan

See http://word.mvps.org/faqs/macrosvba/UnSuperscptFnotes.htm. Since
you want ")" rather than "." after numbers, in the macro suggested in
the article, you would change the line

.InsertAfter "." & vbTab

to

.InsertAfter ")" & vbTab

--
Stefan Blom
Microsoft Word MVP


in message

 

[Guest]

I read and execute that Macro
My understanding is that it is valid for new files. By new file I mean if I
want to enter a new endnote, it will follow the new instructions to insert
the endnote however it is not applicable to a file whicch is already has
endnotes and I want to change the format.
Anyway I Run the Macro and got following errors message:
Run-time error 5935
Comments, endnotes and footnotes can only be added to the main story.
What should I do?

--
Rasoul Khoshravan Azar
Kobe University, Kobe, Japan

See http://word.mvps.org/faqs/macrosvba/UnSuperscptFnotes.htm. Since
you want ")" rather than "." after numbers, in the macro suggested in
the article, you would change the line

.InsertAfter "." & vbTab

to

.InsertAfter ")" & vbTab

--
Stefan Blom
Microsoft Word MVP


in message

 

[Stefan Blom]

The following seems to do what you want:


Sub InsertFootnote()

Dim fn As Endnote
Dim r As Range
Dim myrange As Range
Set fn = ActiveDocument.Endnotes.Add(Range:=Selection.Range)

Set r = fn.Reference

Set myrange = r.Duplicate


myrange.InsertAfter ")"

myrange.Font.Superscript = True

With Selection
.Paragraphs(1).Range.Font.Reset
.Paragraphs(1).Range.Characters(2) = ""
.InsertAfter "." & vbTab
.Collapse wdCollapseEnd
End With
End Sub


--
Stefan Blom
Microsoft Word MVP


in message

Thanks Stefan
One more question. In body of the paper, also I need the "paranthesis" on
right side of numbers, as reference number. Is it possible?

 

[Stefan Blom]

Yes, the macro is for new documents (or at least new endnotes). If you
want it to work on existing documents, modifications are required.

To avoid the error message, make sure that the insertion point is not
outside of the body of the document when running the macro.

--
Stefan Blom
Microsoft Word MVP


in message

I read and execute that Macro
My understanding is that it is valid for new files. By new file I mean if I
want to enter a new endnote, it will follow the new instructions to insert
the endnote however it is not applicable to a file whicch is already has
endnotes and I want to change the format.
Anyway I Run the Macro and got following errors message:
Run-time error 5935
Comments, endnotes and footnotes can only be added to the main story.
What should I do?

 

[Stefan Blom]

The following macro seems to correctly modify endnotes and references
in an a document where endnotes have already been inserted.

Sub RedefineExistingEndNotes()
Dim myrange As Range
Dim fn As Endnote
For Each fn In ActiveDocument.Endnotes
fn.Range.Paragraphs(1).Range.Font.Reset
fn.Range.Paragraphs(1).Range.Characters(2) = ""
fn.Range.Paragraphs(1).Range.Characters(1). _
InsertAfter ")" & vbTab

Set myrange = fn.Reference.Duplicate
myrange.InsertAfter ")"
myrange.Font.Superscript = True

Next fn
End Sub

 

[Guest]

Stefan -

I red your note on changing the format of footnotes and endnotes, and have
two questions:

I set up the endnote macro you supplied, named InsertFootnote(). However,
it does *not* seem to intercept the Word 2007 macro of the same name. It
runs correctly if I run it from the list of user macros, but if I do
References/InsertEndnote the endnote is inserted with the original format.
Are things different with Word 2007?

I want to leave footnotes with the default format. Will the endnote macro
you supplied leave footnotes alone? Why is there an InsertFootnote() Word
macro but not an InsertEndnote() Word macro?

Thanks!

 

[Stefan Blom]

In the new interface of Word 2007, InsertFootnote intercepts the dialog box
launcher button in the Footnotes group (on the References tab of the
ribbon).

To intercept the Insert Endnote command, name the macro InsertEndnoteNow.

And, yes, the macro I posted affects endnotes only.

--
Stefan Blom
Microsoft Word MVP


in message

 

[Guest]

That did the trick - thanks!

In the new interface of Word 2007, InsertFootnote intercepts the dialog box
launcher button in the Footnotes group (on the References tab of the
ribbon).

To intercept the Insert Endnote command, name the macro InsertEndnoteNow.

And, yes, the macro I posted affects endnotes only.

--
Stefan Blom
Microsoft Word MVP


in message

 

[Stefan Blom]

You are welcome.

 

[grace]

hello,

can someone help me please with instructions on how to change the default
format of my endnote references from roman digits to ordinary numbers?

I have a document where I need to insert many endnotes. The format keeps
changing back to the default i, ii, iii, iv numbering each time I insert a
new endnote. It is extremely time consuming not to say annoying to have
"word" not recognize the change as permanent for this document. Does anyone
know what I can do?

I read the previous posts but have no idea how to use a macro in this case
or even where to use it if I had the right macro.

Thanks in anticipation of a rapid answer,
Y.

 

[Suzanne S. Barnhill]

1. Insert | Reference | Footnote.

2. Select the radio button for Endnotes.

3. Select the desired number formatting.

4. Make sure that "Whole document" is selected under "Apply changes to."

5. Click Apply.

 

[Tammy]

Hi Stephan,

If I am reading through all these posts correctly, there is no way to
customize an endnote (or footnote) without running a macro with specific
coding?

My user wants his endnotes to appear with the number in brackets, as follows:

[1]

We are using Word 2007.

Thanks!

See http://word.mvps.org/faqs/macrosvba/UnSuperscptFnotes.htm. Since
you want ")" rather than "." after numbers, in the macro suggested in
the article, you would change the line

.InsertAfter "." & vbTab

to

.InsertAfter ")" & vbTab

--
Stefan Blom
Microsoft Word MVP


in message