Re: Fixing options to Cell expressions
- To: mathgroup at smc.vnet.net
- Subject: [mg25283] Re: Fixing options to Cell expressions
- From: "P.J. Hinton" <paulh at wolfram.com>
- Date: Tue, 19 Sep 2000 03:45:09 -0400 (EDT)
- Organization: Wolfram Research, Inc.
- References: <8q22f0$hr4@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
On 17 Sep 2000, Murray Eisenberg wrote:
> 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[]
nbexp = DeleteCases[nbexp, CellMargins -> _, Infinity]
NotebookPut[nbexp, nb]
Another approach would be to do the job in the front end.
SelectionMove[EvaluationNotebook[], All, Notebook]
SetOptions[NotebookSelection[EvaluationNotebook[]], CellMargins ->
Inherited]
--
P.J. Hinton
User Interface Programmer paulh at wolfram.com
Wolfram Research, Inc.
Disclaimer: Opinions expressed herein are those of the author alone.