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] ]