Deleting Autoshapes

[Roderick O'Regan]

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

 

[Charles Kenyon]

Once the AutoText is inserted, it loses its characteristic as AutoText. It
is simply text and graphics.

The easiest way would be to also save your logo as an AutoText entry. Then
delete the entire header and reinsert the logo.

Also, consider using the range object rather than the selection object when
accessing the header.
--
Charles Kenyon

Word New User FAQ & Web Directory: http://addbalance.com/word

Intermediate User's Guide to Microsoft Word (supplemented version of
Microsoft's Legal Users' Guide) http://addbalance.com/usersguide


--------- --------- --------- --------- --------- ---------
This message is posted to a newsgroup. Please post replies
and questions to the newsgroup so that others can learn
from my ignorance and your wisdom.

 

[Roderick O'Regan]

Thanks Charles for your help and advice.

I've worked it as you suggested.

Roderick