# How to edit stylesheet to change automatic numbering of Reference type to numeric, not alphabetic?

I applied the stylesheet JournalArticle to a notebook. When I use the Reference cell style there, it automatically inserts "A.", "B.", etc., to number the cells.

What exactly should one do (presumably using Format > Edit Stylesheet) so as to change that auto-numbering to "1.", "2.", etc.?

I did look at the Private Style Definitions notebook that opens if I use Format > Edit Stylesheet for my notebook. The expression that's the contents of the Reference style cell definition is merely: Cell[StyleData["Reference"]].

Moreover, if I select the Reference cell in the stylesheet, open Option Inspector, search for AutomaticNumbering, and change the option

Formatting Options > Automatic Numbering Options > Counter Display Options > CounterFunction

to Decimal Numbers (in the drop down menu aside this option), it does not change the stylesheet's prototype for this Reference style -- and hence will not change the style of Reference cells in my actual notebook.

• This is a good question. I did not notice such a feature before, though I use the JournalArticle a lot. Is it a new Mma 10.0 feature? I recall something of this sort has been discussed about 1/2 to 1 year ago. I did not make any note at that time and cannot find it though. I am also not sure that the discussion I recall answers this question. – Alexei Boulbitch Nov 20 '14 at 9:41
• I think to have outflanked the problem. I just mark the references as EndNotes, make numeration in the list of thee EndNotes by hand, and make then cross-references from the text to the EndNotes, rather than to References. Since I otherwise use no other end notes, this works for automatic cross-references. Since it is not a real solution to the problem, I do not dare to give it as an answer, and still wait eagerly for somebody who might give a real one. – Alexei Boulbitch Feb 17 '15 at 14:24

Check out the default style for "Reference":

CurrentValue[{StyleDefinitions,"Reference", CellFrameLabels}]


{{Cell[TextData[{CounterBox["Reference", CounterFunction :> (CharacterRange["A", "Z"][[#1]] &)], "."}], "Reference", CellBaseline -> Baseline, TextAlignment -> Right], Inherited}, {Inherited, Inherited}}

The CounterFunction overrides the default number output and converts it to letters. Just eliminate the CounterFunction to have numbers:

SetOptions[
EvaluationNotebook[],
StyleDefinitions -> Notebook[
{
Cell[StyleData[StyleDefinitions->FrontEndFileName[{"Article"}, "JournalArticle.nb"]]],
Cell[StyleData["Reference"],
CellFrameLabels->{
{
Cell[TextData[{CounterBox["Reference"],"."}],"Reference",CellBaseline->Baseline,TextAlignment->Right],
Inherited
},
{Inherited,Inherited}
}
]
},
StyleDefinitions->"PrivateStylesheetFormatting.nb"
]
]
`