Bonjoour,
J'effectue un publipostage d'access vers word, et lors de celui-ci, je voudrais le cas échéant supprimer certaines pages. Dans le code que je compte utiliser (je suis en phase de test), je me sers des numéros de pages pour les supprimer. Le problème c'est qu'au fur et à mesure de la supression, les pages sont renumérotées. Par exemple voici le code que j'utilise pour supprimer les pages 19 et 20 (code que j'ai en partie trouver sur le net) :
La renumérotation m'est utile pour le document final.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20 Dim RangeCourant As Range 'Pour sauvegarder la sélection courante (je sais pas vraiment à quoi ça sert) Set RangeCourant = Selection.Range Dim n As Variant n = 1 While n < 3 Selection.GoTo What:=wdGoToPage, Which:=wdGoToAbsolute, Count:=19 ActiveDocument.Bookmarks("\Page").Range.Delete n = n + 1 Wend
Je me demandais si il existe une solution pour supprimer tout ce qui se trouve entre 2 bookmarks, ou quelque chose dans le genre.
Merci d'avance.
Partager