Programmatically Create a Complete Notebook
Mathematica 6 makes it easy to use programs to create complete notebooks that can be read and edited separately.
In[1]:=  |  DocumentNotebook[
Table[Framed[
Text[\[Integral]Log[x]^n \[DifferentialD]x // TraditionalForm],
Background -> LightYellow], {n, 10}]] |
Out[1]=  |  |