Sélection objet WORD avec macro

Fermé
gbdos Messages postés 49 Date d'inscription mercredi 10 septembre 2008 Statut Membre Dernière intervention 17 août 2021 - 28 nov. 2011 à 09:44
Bonjour,

J'ai un fichier dans lequel j'ai plusieurs objets graphiques différents (rectangle, losange, flèche et étoile).
Je vourdrai faire une macro pour enregistrer mon fichier, ensuite supprimer les objets étoiles, imprimer le document, le fermer sans l'enregistrer et le ré-ouvrir.

J'ai enregistré une macro, mais dans cette macro la sélection des objets étoiles est celle que j'ai réalisé moi-même. Mon but est que la macro me sélectionne toutes les étoiles du document automatiquement.

Sachant que les étoiles du document sont des blocs de construction qui s'appelle "1 blanc".

Est-ce que quelqu'un aurait une idée pour que ma macro sélectionne toutes les étoiles automatiquement?

Voici mon code :
ActiveDocument.Save
ActiveDocument.Shapes("AutoShape 6").Select
ActiveDocument.Shapes.Range(Array("AutoShape 6", "AutoShape 7")).Select
Selection.ShapeRange.Delete
Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _
wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=wdPrintAllPages, _
ManualDuplexPrint:=False, Collate:=True, Background:=True, PrintToFile:= _
False, PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
PrintZoomPaperHeight:=0
ActiveDocument.Close
RecentFiles(1).Open

Je suis en WORD 2007.
Merci pour votre aide.

A voir également: