Discussion :

[rglot]

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 ?

[Heureux-oli]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[ucfoutu]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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...

[Heureux-oli]

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

[rglot]

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

Merci .
Le document ne se repagine pas automatiquement ?

[Heureux-oli]

Merci .
Le document ne se repagine pas automatiquement ?

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

[béber_novice]

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

[Heureux-oli]

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.