Getting output from a previously evaluated notebook

There are situations in which you need to get the output from a previously evaluated notebook without rerunning the notebook. This notebook gives a way to do that.

The "GetOut" code

Suppose the notebook you want to extract the results of your calculations is notebook below the heavy line. If you paste the following cell into the beginning of the notebook and evaluate it you will create a new notebook containing all of the Output, and only the Output of the original notebook. (Evaluating the following cell where it is will illustrate how this works.) The new notebook will consist entirely of Output cells and can be manipulated just like any other Mathematica notebook.

nb  =  SelectedNotebook[];
myData  = NotebookCreate[];
While[(SelectionMove[nb, Next, Cell]; 
data  =  
            NotebookRead[nb]) =!= {}, 
If[
        data[[2]] === "Output" || data[[2]] === "Graphics", 
        NotebookWrite[myData, data]]]

My notebook

The first section

This is a text cell.

FindRoot[x^3  -  1 == 0, {x,  .5}]

This is also a text cell

FindRoot[x^3  - 2 == 0, {x,  .5}]

And another text cell.

Solve[Sin[x] == 5 x, x]

Solve[{3 x  +  2  ==  3 x  +  5}, x]

the second section

This is more text

FindRoot[x^3 - 5  == 0, {x,  .5}]

Integrate[x^3, {x, 0. , 3}]

Plot[Sin[x], {x, 0, 2 π}]