This is documentation for Mathematica 4, which was
based on an earlier version of the Wolfram Language.
Wolfram Research, Inc.

2.10.3 Manipulating Notebooks from the Kernel

If you want to do simple operations on Mathematica notebooks, then you will usually find it convenient just to use the interactive capabilities of the standard Mathematica front end. But if you want to do more complicated and systematic operations, then you will often find it better to use the kernel.

Functions that give the notebook objects corresponding to particular notebooks.

Within the Mathematica kernel, notebooks that you have open in the front end are referred to by notebook objects of the form NotebookObject[fe, id]. The first argument of NotebookObject specifies the FrontEndObject for the front end in which the notebook resides, while the second argument gives a unique serial number for the notebook.

Here is a notebook named Example.nb.

This finds the corresponding notebook object in the front end.

In[1]:= Notebooks["Example.nb"]

Out[1]={NotebookObject[<<Example.nb>>]}

This gets the expression corresponding to the notebook into the kernel.

In[2]:= NotebookGet[First[%]]

This replaces every occurrence of the string "Section" by "Text".

In[3]:= % /. "Section" -> "Text"

This creates a new modified notebook in the front end.

In[4]:= NotebookPut[%]

Out[4]={NotebookObject[<<Untitled-1.nb>>]}

Exchanging whole notebook expressions between the kernel and front end.

If you want to do extensive manipulations on a particular notebook you will usually find it convenient to use NotebookGet to get the whole notebook into the kernel as a single expression. But if instead you want to do a sequence of small operations on a notebook, then it is often better to leave the notebook in the front end, and then to send specific commands from the kernel to the front end to tell it what operations to do.

Mathematica is set up so that anything you can do interactively to a notebook in the front end you can also do by sending appropriate commands to the front end from the kernel.

Finding and setting options for notebooks.

This gives the setting of the WindowSize option for your currently selected notebook.

In[5]:= Options[SelectedNotebook[ ], WindowSize]

Out[5]=

This changes the size of the currently selected notebook on the screen.

In[6]:= SetOptions[SelectedNotebook[ ], WindowSize -> {250, 100}]

Out[10]={WindowSize {250., 100.}}

Within any open notebook, the front end always maintains a current selection. The selection can consist for example of a region of text within a cell or of a complete cell. Usually the selection is indicated on the screen by some form of highlighting. The selection can also be between two characters of text, or between two cells, in which case it is usually indicated on the screen by a vertical or horizontal insertion bar.

You can modify the current selection in an open notebook by issuing commands from the kernel.

Moving the current selection in a notebook.

Units used in specifying selections.

Here is a simple notebook.

This sets nb to be the notebook object corresponding to the currently selected notebook.

In[7]:= nb = SelectedNotebook[ ];

This moves the current selection within the notebook to be the next word.

In[8]:= SelectionMove[nb, Next, Word]

This extends the selection to the complete first cell.

In[8]:= SelectionMove[nb, All, Cell]

This puts the selection at the end of the whole notebook.

In[8]:= SelectionMove[nb, After, Notebook]

Searching the contents of a notebook.

This moves the current selection to the position of the previous occurrence of the word cell.

In[8]:= NotebookFind[nb, "cell", Previous]

Out[15]=NotebookSelection[-NotebookObject-]

The letter does not appear in the current notebook, so \$Failed is returned, and the selection is not moved.

In[9]:= NotebookFind[nb, "\[Alpha]", Next]

Possible elements of cells to be searched by NotebookFind.

In setting up large notebooks, it is often convenient to insert tags which are not usually displayed, but which mark particular cells in such a way that they can be found using NotebookFind. You can set up tags for cells either interactively in the front end, or by explicitly setting the CellTags option for a cell.

Globally locating cells in notebooks.

NotebookLocate is the underlying function that Mathematica calls when you follow a hyperlink in a notebook. The menu item Create Hyperlink sets up the appropriate NotebookLocate as part of the script for a particular hyperlink button.

NotebookWrite[obj, data] is similar to a Paste operation in the front end: it replaces the current selection in your notebook by data. If the current selection is a cell NotebookWrite[obj, data] will replace the cell with data. If the current selection lies between two cells, however, then NotebookWrite[obj, data] will create an appropriate new cell or cells.

Here is a notebook with a word of text selected.

This replaces the selected word by new text.

In[9]:= NotebookWrite[nb, "<<inserted text>>"]

This moves the current selection to just after the first cell in the notebook.

In[10]:= SelectionMove[nb, After, Cell]

This now inserts a text cell after the first cell in the notebook.

In[10]:= NotebookWrite[nb,

Cell["This cell contains text.", "Text"]]

This makes the current selection be the next cell in the notebook.

In[10]:= SelectionMove[nb, Next, Cell]

This reads the current selection, returning it as an expression in the kernel.

Out[17]=

NotebookWrite[obj, data] just discards the current selection and replaces it with data. But particularly if you are setting up palettes, it is often convenient first to modify data by inserting the current selection somewhere inside it. You can do this using selection placeholders and NotebookApply. The first time the character , entered as \[SelectionPlaceholder] or spl, appears anywhere in data, NotebookApply will replace this character by the current selection.

Here is a simple notebook with the current selection being the contents of a cell.

In[11]:= nb = SelectedNotebook[ ] ;

This replaces the current selection by a string that contains a copy of its previous form.

In[11]:= NotebookApply[nb, "x + 1/"]

Operations on the current selection.

This makes the current selection be the whole contents of the cell.

In[11]:= SelectionMove[nb, All, CellContents]

This evaluates the current selection in place.

In[11]:= SelectionEvaluate[nb]

SelectionEvaluate allows you to take material from a notebook and send it through the kernel for evaluation. On its own, however, SelectionEvaluate always overwrites the material you took. But by using functions like SelectionCreateCell you can maintain a record of the sequence of forms that are generated—just like in a standard Mathematica session.

This makes the current selection be the whole cell.

In[11]:= SelectionMove[nb, All, Cell]

This creates a new cell, and copies the current selection into it.

In[11]:= SelectionCreateCell[nb]

This wraps Factor around the contents of the current cell.

In[11]:= NotebookApply[nb, "Factor[]"]

This evaluates the contents of the current cell, and creates a new cell to give the result.

In[11]:= SelectionEvaluateCreateCell[nb]

Functions like NotebookWrite and SelectionEvaluate by default leave the current selection just after whatever material they insert into your notebook. You can then always move the selection by explicitly using SelectionMove. But functions like NotebookWrite and SelectionEvaluate can also take an additional argument which specifies where the current selection should be left after they do their work.

Performing operations and specifying what the new current selection should be.

Specifications for the new current selection.

Here is a blank notebook.

In[11]:= nb = SelectedNotebook[ ] ;

This writes 10! into the notebook, making the current selection be what was written.

In[11]:= NotebookWrite[nb, "10!", All]

This evaluates the current selection, creating a new cell for the result, and making the current selection be the whole of the result.

In[11]:= SelectionEvaluateCreateCell[nb, All]

This wraps FactorInteger around the current selection.

In[11]:= NotebookApply[nb, "FactorInteger[]", All]

This evaluates the current selection, leaving the selection just before the result.

In[11]:= SelectionEvaluate[nb, Before]

This now inserts additional text at the position of the current selection.

In[11]:= NotebookWrite[nb, "a = "]

Finding and setting options for whole notebooks and for the current selection.

Make the current selection be a complete cell.

In[11]:= SelectionMove[nb, All, Cell]

Put a frame around the cell that is the current selection.

In[11]:= SetOptions[NotebookSelection[nb], CellFrame->True]

Operations on whole notebooks.

If you call NotebookCreate[ ] a new empty notebook will appear on your screen.

By executing commands like SetSelectedNotebook and NotebookOpen, you tell the Mathematica front end to change the windows you see. Sometimes you may want to manipulate a notebook without ever having it displayed on the screen. You can do this by using the option setting Visible->False in NotebookOpen or NotebookCreate.