Comment supprimer des dizaines de pages en une seule opération

Pour supprimer dans Word des quantités importantes de pages (sans avoir à les selectionner à la souris) .
Connaissant les numeros de pages (debut et fin ) du fichier .doc à supprimer.

Y a t'il une macro ?
ou une procedure en VBA ?

Salut,

On peut le faire en VBA, on place un signet sur le début de la première page et sur la page qui suit directement la page voulue.

On sélectionne tout ce qui se trouve entre les deux page et ensuite un petit del.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Sub Delpages() ' 5 est la page de début Selection.GoTo what:=wdGoToPage, which:=wdGoToAbsolute, Count:=5 Selection.Bookmarks.Add Name:="S1", Range:=Selection.Range '84 est la page de fin Selection.GoTo what:=wdGoToPage, which:=wdGoToAbsolute, Count:=84 Selection.Bookmarks.Add Name:="S2", Range:=Selection.Range   ActiveDocument.Range(ActiveDocument.Bookmarks("S1").Range.Start, ActiveDocument.Bookmarks("S2").Range.End).Select Selection.Delete     End Sub

---

Attention, une fois les pages supprimées il faut revoir le document.

Bonjour,

Il sera peut-être plus simple (que d'ajouter des signets) de supprimer la page en cours (de son choix, donc... en s'y plaçant), depuis cette page ...

Code:

---

ActiveDocument.Bookmarks("\Page").Range.Delete

---

devrait faire l'affaire.
On peut également s'inspirer de la méthode donnée par Heureux-oli, sans avoir à placer des signets, mais au prix d''acrobaties successives et assez périlleuses...

Avec le code que je donne, on supprime 79 pages en une seule opération.
On aurais pu en supprimer plus, mais moins aussi.

Citation:

---

Envoyé par Heureux-oli

Attention, une fois les pages supprimées il faut revoir le document.

---

Merci . :yaisse2:
Le document ne se repagine pas automatiquement ?

Citation:

---

Envoyé par rglot

Merci . :yaisse2:
Le document ne se repagine pas automatiquement ?

---

Si, mais si tu relance la procédure, comme les pages sont renumérotées :?

Bonjour à tous,
voila je cherche à supprimer plusieurs pages définies dans un document word. En faite, je souhaite par exemple supprimer les pages 3, 7, 8 et 10 ( voir d'autre).
Existe t'il un code pour cela?

Merci d'avance pour vos réponses

Salut,

Tu peux t'inspirer du code que j'ai donné plus haut.
Mais tu dois partir de la page la plus loin dans le document.
Tu fais une boucle de la fin vers le début.