SetDirectory["C:\\drorbn\\AcademicPensieve\\Projects\\WKO4"];
<< CellExport.m;

SetOptions[CellExport, ExportFormat -> ".png", PageWidth -> 6.25*0.24/0.16];

SourceNotebook = Get["C:\\drorbn\\AcademicPensieve\\Projects\\WKO4\\WKO4Session.nb"];
DialogTags={
"Initialization", "alphabetagamma", "BracketExample", "bch", "bch16", "omegas", "DegreeScale", "TangentialDerivative", "tb", "tb2", "TestingGammaODE", "TestingGamma", "TestingLambdaODE", "TestingLambda", "CCAndRC", "tru", "divu", "Ju", "j", "cocycle4j", "dj", "ElSetup", "ElAssociativity", "detaExample", "dA1", "dA2", "dA3", "dS", "dD1", "dD2", "EsSetup1", "EsSetup2", "haction", "metaassoc", "R3", "817", "Borromean", "VCapSolution", "Sinh", "LambdaV", "logF", "atkv", "KVTest", "KVDirect", "4T", "Theta", "Vtau", "Linearized", "msgs", "dims", "dims1", "DKExample", "DKSExample", "sigmaExample", "BCH4DK", "Phi", "Hexagons", "PhiV", "PentPhiV", "Phi_is_sder", "DK2Es", "ZB", "VfromPhi", "nu", "nucap4", "Phi1", "F", "FV", "rho2", "rho3", "V2"
};
tags=Cases[SourceNotebook, (CellTags->tag_) :> tag, Infinity ] // Union;
files=Flatten[Table[
Which[
tag=="817", {
CellExport[SourceNotebook, "817", {CellFilter -> First, ExportBaseFilename -> "ComputerTalk/Human-817"}],
CellExport[SourceNotebook, "817", {CellFilter -> Rest, ExportBaseFilename -> "ComputerTalk/Machine-817", PageWidth -> 5.5*0.24/0.16}]
},
MemberQ[DialogTags, tag], {
CellExport[SourceNotebook, tag, {CellFilter -> First, ExportBaseFilename -> "ComputerTalk/Human-"<>tag}],
CellExport[SourceNotebook, tag, {CellFilter -> Rest, ExportBaseFilename -> "ComputerTalk/Machine-"<>tag}]
},
True, CellExport[SourceNotebook, tag, ExportBaseFilename -> "ComputerTalk/"<>tag]
],
{tag, tags}]];
SourceNotebook = Get["C:\\drorbn\\AcademicPensieve\\Projects\\WKO4\\FreeLie.nb"];
tags=Cases[SourceNotebook, (CellTags->tag_) :> tag, Infinity ] // Union;
files=files ⋃ Flatten[Table[
CellExport[SourceNotebook, tag, ExportBaseFilename -> "ComputerTalk/FL"<>tag],
{tag, tags}]];
SourceNotebook = Get["C:\\drorbn\\AcademicPensieve\\Projects\\WKO4\\AwCalculus.nb"];
tags=Cases[SourceNotebook, (CellTags->tag_) :> tag, Infinity ] // Union;
files= files ⋃ Flatten[Table[
CellExport[SourceNotebook, tag, ExportBaseFilename -> "ComputerTalk/AC"<>tag],
{tag, tags}]];
(*DeleteFile /@ Complement[FileNames["ComputerTalk/*.png"], files]*)

Recycling

(*listing=OpenWrite["listing.txt"];
WriteString[listing, #<>"\n"]& /@ files;
Close[listing];*)

(*do="sam2p foo.png foo.eps\n";
pp=OpenWrite["postprocess.csh", BinaryFormat -> True];
BinaryWrite[pp, StringReplace[do, "foo"->StringDrop[#,-4]]]& /@ files;
Close[pp];*)