如何获取(不显示)部分编号

Question

通过CounterBox["Section"]使用Insert > Automatic Numbering...菜单插入自动编号对象,可以自动对笔记本部分进行编号.然而,这对象只控制显示的部分号码,我想获得它的数字值在程序中使用.知道怎么做吗？

编辑
我想要使​​用它的原因在这里概述.

Answer 1

使用TagBox和已知标记包装CounterBox:

Cell[BoxData[TagBox[CounterBox["Section"], "tag"]], "Text"]

然后使用FrontEnd`ObjectContents将所有DynamicBox/CounterBox/ValueBox转换为文字并选择该TagBox的值:

x = First@Cases[FrontEnd`ObjectContents[nb, True], TagBox[x_, "tag"] :> x, \[Infinity]]

如果你想知道的是你可以做多少特定类型的计数器:

x = FE`Evaluate[CurrentValue[{"MaxCounterValue", "Section"}]]