Fixing options to Cell expressions

*To*: mathgroup at smc.vnet.net*Subject*: [mg25263] Fixing options to Cell expressions*From*: Murray Eisenberg <murray at math.umass.edu>*Date*: Sun, 17 Sep 2000 04:47:50 -0400 (EDT)*Organization*: Mathematics & Statistics, Univ. of Mass./Amherst*Sender*: owner-wri-mathgroup at wolfram.com

I changed cell margins in a notebook (which has a private style sheet). This inserted options in the Cell expressions. Is there some easy way to manipulate the notebook expression to get rid of all such options, e.g., so that Cell[BoxData[ RowBox[{"1", " ", "+", " ", "1"}]], "Input", CellMargins->{{17.625, Inherited}, {Inherited, Inherited}}] is changed to: Cell[BoxData[ RowBox[{"1", " ", "+", " ", "1"}]], "Input"] I have in mind some sort of replacement rule(s), of course. I know that I must start with something like: nb = SelectedNotebook[] nbexp = NotebookGet[] Then what?? -- Murray Eisenberg murray at math.umass.edu Mathematics & Statistics Dept. phone 413 549-1020 (H) Univ. of Massachusetts 413 545-2859 (W) Amherst, MA 01003-4515