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 ?
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.
Attention, une fois les pages supprimées il faut revoir le document.
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
J'ai pas encore de décodeur, alors, postez en clair ! Comment mettre une balise de code ?
Débutez en VBA
Mes articles
Dans un MP, vous pouvez me dire que je suis beau, ... mais si c'est une question technique je ne la lis pas ! Vous êtes prévenus !
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 ...
devrait faire l'affaire.
Code : Sélectionner tout - Visualiser dans une fenêtre à part ActiveDocument.Bookmarks("\Page").Range.Delete
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.
J'ai pas encore de décodeur, alors, postez en clair ! Comment mettre une balise de code ?
Débutez en VBA
Mes articles
Dans un MP, vous pouvez me dire que je suis beau, ... mais si c'est une question technique je ne la lis pas ! Vous êtes prévenus !
J'ai pas encore de décodeur, alors, postez en clair ! Comment mettre une balise de code ?
Débutez en VBA
Mes articles
Dans un MP, vous pouvez me dire que je suis beau, ... mais si c'est une question technique je ne la lis pas ! Vous êtes prévenus !
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.
J'ai pas encore de décodeur, alors, postez en clair ! Comment mettre une balise de code ?
Débutez en VBA
Mes articles
Dans un MP, vous pouvez me dire que je suis beau, ... mais si c'est une question technique je ne la lis pas ! Vous êtes prévenus !
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager