MathGroup Archive 2000

[Date Index] [Thread Index] [Author Index]

Search the Archive

Fixing options to Cell expressions

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

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

    RowBox[{"1", " ", "+", " ", "1"}]], "Input",
  CellMargins->{{17.625, Inherited}, {Inherited, Inherited}}]

is changed to:

    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
Mathematics & Statistics Dept.       phone 413 549-1020 (H)
Univ. of Massachusetts                     413 545-2859 (W)
Amherst, MA 01003-4515

  • Prev by Date: Re: Mapping down two lists
  • Next by Date: RE: Testing the Head of List Elements
  • Previous by thread: shortcut for cell style
  • Next by thread: Re: Fixing options to Cell expressions