Ingolf Dahl has an extensive package for manipulating cell tags. It is
available at
And a new version of my package is available at
http://web.telia.com/~u31815170/Mathematica/
and his email address for more information is ingolf.dahl at telia.com.
David Park
djmp at earthlink.net
http://home.earthlink.net/~djmp/
From: mqh [mailto:mhla at gmx.at]
To: mathgroup at smc.vnet.net
I'd like to change the celltags of several cells that are not adjacent
via a program (not via the menu). Doing this for one cell is no
problem: I use a rule like
{Cell[a_, st_String, b___, CellTags -> tgs_, c___] :>
Cell[a, st, b, CellTags -> Union[Flatten[{tgs, newtag}]], c],
Cell[a_, st_String, b___ /; FreeQ[{b}, CellTags, \[Infinity]]] :>
Cell[a, st, b, CellTags -> settag]}.
The problem arises now if several cells are selected: I read them in,
apply the rule and paste them back, but the new cells appear now at the
wrong place. One can simply imitate this behaviour of M by selecting
several not adjacent cells and doing copy and paste: One will see that
the cells are pasted at the wrong place.
Doing the same thing via the menu entry Find > Add/Remove Cell Tags
this is no problem at all. So it appears to me that a solution using
the FrontEnd would be the best thing. But: I can find no documentation
about a FrontEndToken like "AddCellTags". The best thing I can do is
use
FrontEndTokenExecute[CellTagsEditDialog]
to open the dialog to change CellTags, but this is not what I want.
So can anybody tell me if there is an additional FrontEndToken that can
do what I want or has another idea? It should work for M4.0 - M5.2.