Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2001
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2001

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

Search the Archive

Re: Notebook Filename

  • To: mathgroup at smc.vnet.net
  • Subject: [mg30353] Re: Notebook Filename
  • From: Dan Dill <dan at bu.edu>
  • Date: Sat, 11 Aug 2001 03:40:18 -0400 (EDT)
  • Organization: Boston University
  • References: <9kqjuf$4fp$1@smc.vnet.net>
  • Sender: owner-wri-mathgroup at wolfram.com

This may not be exactly what you want, but here is an abbreviated
example of a scheme I use at the start of a notebook.

CellPrint@
    Cell[TextData[{"Notebook name is ", 
          StringDrop[("FileName" /. 
                  NotebookInformation[SelectedNotebook[]])[[2]], -3], 
          ".nb\nLast updated ", ValueBox["DateLong"], " ",
ValueBox["Time"]}],
       "SmallText",
      CellFrame -> {{0, 0}, {2, 0}}, CellFrameColor -> RGBColor[0, 0.8,
0], 
      FontSize -> 8, FontWeight -> "Plain"];

Executing this in a notebook will print its name and its time stamp. I
set the input cell to invisible so in the printed notebook it does not
appear.

Dan


  • Prev by Date: Re: Adding text at various X,Y locations on Multi-Function Graphs
  • Next by Date: RE: Inserting Text into Multifunction Graphs
  • Previous by thread: Re: Notebook Filename
  • Next by thread: Re: Notebook Filename