Re: Re: How to generate sections, subsections, etc. automatically?

*To*: mathgroup at smc.vnet.net*Subject*: [mg67042] Re: [mg67013] Re: [mg66957] How to generate sections, subsections, etc. automatically?*From*: Ken Levasseur <klevasseur at mac.com>*Date*: Thu, 8 Jun 2006 04:52:54 -0400 (EDT)*References*: <200606070909.FAA23424@smc.vnet.net>*Sender*: owner-wri-mathgroup at wolfram.com

I wasn't aware of StylePrint when I wrote the following and it sounds like it might streamline what I did, but here is my take on the original question: MyEvaluation[exp_] := (NotebookWrite[EvaluationNotebook[], Cell["Result", "Subsection"]]; NotebookWrite[EvaluationNotebook[], Cell[ToString[Evaluate[exp]], "Output"]]; NotebookWrite[EvaluationNotebook[], Cell["FullForm", "Subsection"]]; NotebookWrite[EvaluationNotebook[], Cell[ToString[FullForm[Evaluate[exp]]], "Output"]]) On Jun 7, 2006, at 5:09 AM, Christoph Lhotka wrote: > See StylePrint in the Help Browser! > > On Mon, 5 Jun 2006 03:48:06 -0400 (EDT) > "wandering.the.cosmos at gmail.com" <wandering.the.cosmos at gmail.com> > wrote: >> My code gives multiple output, each of which I wish to put under a >> different section. Is it possible to generate a section within a >> notebook automatically, without using the toolbar to do so? >> >> Thanks! >> > > -- Mag. Christoph Lhotka -- > University of Vienna / Institute for Astronomy > mail. lhotka at astro.univie.ac.at > Ken Levasseur http://homepage.mac.com/klevasseur/ Please avoid sending me Word or PowerPoint attachments. See http://www.gnu.org/philosophy/no-word-attachments.html

**References**:**Re: How to generate sections, subsections, etc. automatically?***From:*"Christoph Lhotka" <lhotka@astro.univie.ac.at>