Extracting Mathematica Notebook Content

The following Mathematica expression will extract all non-input cells from a notebook and create a new notebook that contains only those cells:

NotebookWrite[CreateDocument[],
  Cases[NotebookGet@EvaluationNotebook[],Cell[_,Except["Input"],___],Infinity] ]