SetDirectory["C:\\drorbn\\AcademicPensieve\\Projects\\MetaMonoids"];
<< "../../2013-01/CellExport.m"
SetOptions[CellExport, ExportFormat -> ".png", PageWidth -> 5];

SourceNotebook = NotebookGet[NotebookOpen["C:\\drorbn\\AcademicPensieve\\Projects\\MetaMonoids\\betaDemo.nb"]];

TagProperties["KnotTheory"] = {PageWidth -> 7};
TagProperties["Initialization"] = {PageWidth -> 6};
TagProperties["Program"] = {PageWidth -> 6};
TagProperties["hm"] = {PageWidth -> 6};
TagProperties["hht"] = {PageWidth -> 6};
TagProperties["8_17-1"] = {PageWidth -> 6.5};
TagProperties["betaMVA"] = {PageWidth -> 6.5};
TagProperties["TestAllLinks"] = {PageWidth -> 6.5};

tags=Cases[SourceNotebook, (CellTags->tag_) :> tag, Infinity ] // Union;
Print[tags];
files=Flatten[CellExport[SourceNotebook, #]& /@ tags];
(#->Import[#])& /@ files

Testing

SetDirectory["C:\\drorbn\\AcademicPensieve\\Projects\\MetaMonoids"];
{Export["zubi.gif",Cell[d=DateString[], PageWidth-> 4*72], ImageResolution -> 300],
d}

Export["zubi.png", Import["zubi.gif"]]