wolfram-mathematica - 以编程方式关闭 Mathematica 中的所有单元组？

Question

是否可以折叠当前笔记本中的所有单元组？我试过了

nb = SelectedNotebook[];
SelectionMove[nb, Before, CellGroup]
FrontEndTokenExecute["OpenCloseGroup"]

但没有任何改变。

Answer 1

你可以使用

nb = SelectedNotebook[];
SelectionMove[nb, All, Notebook];
FrontEndTokenExecute[nb, "OpenCloseGroup"]

尽管它仅适用于笔记本以单元组开头而不是单独的单元格时。（菜单项的行为方式相同。）

如果您知道有cellGroupCount组，您还可以执行以下操作：

nb = SelectedNotebook[];
SelectionMove[nb, Before, Notebook]
Do[SelectionMove[nb, Next, CellGroup];
 FrontEndTokenExecute[nb, "OpenCloseGroup"], {cellGroupCount}]