Can one optimize AutomaticNumbering feature?

Question

If one wants to use the automatic numbering feature of Mathematica, he has to make tags for cells of the type he wants to be referenced to. Then, as soon as he needs to make a reference to the tagged cell, he goes to Menu/Insert/Automatic Numbering. This brings up the dialog "Create Automatic Numbering Object". There one finds three fields: one is entitled "Counter", the two others enable one to select the tag of the cell to be numbered.

In the field "Counter" one finds a number of cell types, and one MUST select the type he needs. In some StyleSheets, such as JournalArticle, the number of cell types is really impressive. In this case the stage of choosing the cell type from the Counter field of the "Create Automatic Numbering Object" dialog considerably brakes the writing process and becomes a head ache.

I heavily use the JournalArticle StyleSheet along with the automatic numeration. However, I only make numeration and refer to two types of Cells: (i) DisplayFormulaNumbered and (ii) Figure.

Here comes my question:

Is it possible to customize the "Create Automatic Numbering Object" dialog such, that only two types of cells: (i) DisplayFormulaNumbered and (ii) Figure would show up there?

(my data PC WindowsXP, Mathematica 9.0.1.0)

Answer 1

I think the automaticaNumbering is not perfect, I found a way to use AutomaticaNumbering.

That is ：Create Your Own Stylesheet. You can search StyleData in Help,

And the SectionNumbered gives good example when see the CellExpression, and we can modifiy it in our personal-stylesheet.nb

If you want to remove AutomaticaNumbering of some stylesheet, just CtrL+Shift+E and remove the part related.

Shortcut to insert CounterBox

and I saw this which maybe also helpful

The picture show the case: find a buil-in cell-style is really AutomaticaNumbering, but with no CountBox, it's in the parent stylesheet.

Answer 2

My initial answer was not sufficient. Here are some better input aliases to use:

CurrentValue[EvaluationNotebook[], {InputAliases, "dfn"}] = DynamicBox[
    ToBoxes[
        ActionMenu[
            "tags",
            With[{tags = CurrentValue[Cells[CellStyle->"DisplayFormulaNumbered"], CellTags]},
                #:>NotebookWrite[
                    ParentBox@EvaluationBox[],
                    CounterBox["DisplayFormulaNumbered", #]
                ]& /@ tags
            ]
        ]
    ]
];
CurrentValue[EvaluationNotebook[], {InputAliases, "fig"}] = DynamicBox[
    ToBoxes[
        ActionMenu[
            "tags",
            With[{tags = CurrentValue[Cells[CellStyle->"Figure"], CellTags]},
                #:>NotebookWrite[
                    ParentBox@EvaluationBox[],
                    CounterBox["Figure", #]
                ]& /@ tags
            ]
        ]
    ]
];