Suppression de signet avec des cactères commun

Bonjour,

je suis en train de coder une macro qui possède a peu près 200 signets et je souhaiterais savoir s'il est possible de les supprimer par paquets.

actuellement je procède de la façon suivante mais cela m'oblige à créer du code pour les supprimer un à un

Code:

---

1 2 3 4 5 6

selection.GoTo What:=wdGoToBookmark, Name:="DRCQHT" With ActiveDocument.Bookmarks .DefaultSorting = wdSortByName .ShowHidden = False End With selection.Delete Unit:=wdCharacter, Count:=1

---

je souhaiterai supprimer les signets qui possèdent dans leur nom des caractères commun par exemple "CQ" ou qui commence par "CQ" ou finisse par "CQ" en une fonction et pas en autant de commande que j'ai de signet
Boucles? caractères jokers? ....

Une idée? ou une solution?

Merci d'avance

Salut,

Une boucle sur les signets et une condition sur le nom.

Une idée ?

Code:

---

1 2 3 4

Dim oBM As BOokmark For Each oBM in Active document.Bookmarks If Left(oBM.Name,2)= "QC" Then oBM.Delete Next oBM

---

Salut,
:king:
Merci c'est génial ça marche et ça me fait gagner un temps monstrueux un grand merci!!
vu le nombre de signets que j'ai a manipuler je ne m'en serai pas sorti

Code:

---

1 2 3 4 5 6 7

Dim Signet As Bookmark For Each Signet In ActiveDocument.Bookmarks If Left(Signet.Name, 2) = "CQ" Then Signet.Delete End If Next Signet

---

c'était une solution :D