MathGroup Archive 2000

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

Search the Archive

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


  • 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