Prevent shapes in tablecell from deleting

I use Word automation in my vb6 appl.
I have in my Word doc 1 table witch has one cell.
I have text in the cell, and can allso contain some line shapes.
The table cell allso contains 2 extra rectangular shapes (FRec1 FRec2)
I have a command1 button witch the user can click to empty the table cell.
Now i want everything deleted except for the FRec1 and Frec2)

-Now i allready tried maken the 2 shapes invisible before deletion, but it does still delete them. Is there an other way.
-And allso maybe i can set a property so the 2 shapes can't be deleted?
Eighter when the user selects the shape with the mouse and clicks on the delete key. I don't know if this exists. Most important is that the 2 shapes can be avoided from deletion when emptying the cell with bij command1 button. An other route can be, i first select the cell content, then deselect only the 2 shape, then delete the selection, but don't know how to do that.

VB Code:

'-To delete the cell i try
AppWord.ActiveDocument.Tables(1).Cell(1, 1).Select
AppWord.Selection.Delete
'-or probaply next line does the same
AppWord.ActiveDocument.Tables(1).cell(1,1).range.delete