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}]