I have an autotext entry  named "invoice overlay" (a graphic) which I
insert into a header in the following manner:

ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader

ActiveDocument.AttachedTemplate.AutoTextEntries("invoice
overlay").Insert Where:=Selection.Range, RichText:=True

There is another graphic in the form of a logo which is always there
in the headers which must never be removed.

Now I want to delete the autotext entry after it has fulfilled its
purpose without deleting the existing logo.

Could anyone show me, please, how to delete this autotext graphic and
leave the logo behind?

I've experimented with deleting shaperanges, shapes and so on but
without much success.

Thanks

Roderick