How to programatically remove an option for all cells?

Question

I'm trying to remove the CellGroupingRules options in every cell in a notebook.

Eventually I opened the Notebook in a text editor and did a find replace, but there has to be a better solution.

And this doesn't work:

Scan[(#=DeleteCases[#, CellGroupingRules, \[Infinity]])&,Cells[]]

Kuba · Accepted Answer · 2015-08-29 07:41:57Z

4

Does this fit your needs?

Scan[
    SetOptions[#, CellGroupingRules -> None] &, 
    Cells[]
]

answered Aug 29, 2015 at 7:41

Kuba

138k13 gold badges289 silver badges751 bronze badges

$\begingroup$ I tried -> Automatic, but I never tried None, will this break the stylesheet? $\endgroup$
– M.R.
Commented Aug 29, 2015 at 21:22
$\begingroup$ @M.R. I don't know, what do you mean? It should be ok, stylesheet settings are going to be overwritten by this explicit statement so it should be ok. Abount None, yes, it was a blind shot :P $\endgroup$
– Kuba
Commented Aug 31, 2015 at 7:49

Add a comment |

1 Answer 1