Tag Info

Hot answers tagged


You can use CellGroupData with 1 as the second argument for creation of cell groups where only first cell is open: Do[NotebookWrite[EvaluationNotebook[], Cell@CellGroupData[{Cell["Section " <> ToString[i], "Subsection"], Cell[ToBoxes@ExpressionCell@f[i], "Output"]}, 1]], {i, 3}]; The quotes around the text are not shown because I have ...

Only top voted, non community-wiki answers of a minimum length are eligible