Close programmatically all cell groups in Mathematica?

Question

Is it possible to collapse all cell groups in the current notebook? I tried

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

but nothing changes.

Mr.Wizard · Accepted Answer · 2012-06-14T15:12:17.973

16

Try:

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

Or:

nb = SelectedNotebook[];
FrontEndExecute[FrontEndToken[nb, "SelectAll"]]
FrontEndTokenExecute["SelectionCloseAllGroups"]

The token may be found in Tokens Related to the Cell Menu in the help browser.

This specific operation may be found under the Scope section of the FrontEndToken documentation.

edited Jun 14 '12 at 15:12

answered Jun 14 '12 at 14:48

Mr.Wizard

271,378
34
587
1,371

Note that "OpenCloseGroup" and "SelectionCloseAllGroups" work differently when you have nested cell groups. – Brett Champion Jun 14 '12 at 15:38
@Brett the OP asked to "collapse all cell groups" -- isn't that what "SelectionCloseAllGroups" does? – Mr.Wizard Jun 14 '12 at 16:13
And yet the sample code used "OpenCloseGroup". But the OP might not have been aware of the differences between them. – Brett Champion Jun 14 '12 at 16:44
@Brett Okay. I thought you were politely trying to tell me my answer was wrong. – Mr.Wizard Jun 14 '12 at 16:51
@Mr.Wizard is it possible to only close or open one level deep? – chris Sep 10 '12 at 19:42
@chris there is the token "OpenCloseGroup" which performs the same action as Ctrl+' -- does that do what you want? – Mr.Wizard Sep 11 '12 at 02:32
@Mr.Wizard exactly! I only knew of Crl+{ or Crl+} Thanks a lot ! – chris Sep 11 '12 at 05:57

score 4 · Answer 2 · answered Jun 14 '12 at 14:53

You could use

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

although it only works if the notebook starts with a cell group, and not with a lone cell. (The menu item behaves the same way.)

If you know there are cellGroupCount groups, you could also do something like:

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

Thanks for pointing out the dependance on the notebook start, that clarifies things — Karsten W., Jun 14 '12 at 21:56

Close programmatically all cell groups in Mathematica?

2 Answers2

Linked