Discussion :

[Alahsan]

Tout d'abord bonjour à tous ^^

Je suis nouveau sur ce forum (coucou François ) et j'aurais un problème à vous soumettre.

J'ai 2600 rapports dont le nombre de pages est identique et j'aurais souhaité trouver une solution me permettant de supprimer la huitième pas de chacun de ces documents sans avoir à les ouvrir un par un .

Merci d'avance pour les conseils eventuels que vous seriez à même de me donner.

Alahsan

[Heureux-oli]

Bonjour et bienvenue sur les forums Office de DVP.

Moi c'est pas François.

Le problème majeur de Word est que la numérotation des pages est dynamique.
On peut par exemple récupérer un numéro de page contenant un mot précis, mais supprimer une page est pas possible.

Pour preuve, si tu imprimes ton document sur deux imprimantes différentes, le nombre de page va changer.


Par contre, si tu connais les délimiteurs de la partie à supprimer, on peut la sélectionner et la supprimer.

[Alahsan]

Tout d'abord merci de ta réponse rapide .

Mon problème c'est que justement sur cette page en question il y a une image particulièrement lourde dont je n'ai pas l'utilité, d'où l'utilité de supprimer cette page sur chaque rapport afin d'avoir un stockage plus "léger".

[Heureux-oli]

On peut supprimer l'image.

cette image est-elle la première ?

Peut-on la repérer facilement ?

[Alahsan]

Disons que l'image se situe à la toute fin du document, c'est donc aussi la dernière page qui est à supprimer.

[Heureux-oli]

Alors c'est assez facile, il suffit de compter les figures, c'est soit les Shapes soit les InlineShapes, et supprimer la dernière.

Essaie ceci :

Code :

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

1
2
3
4
5
6
 
Sub CountShape()
Debug.print "InLinesShape "  = ActiveDocument.InlineShapes.count
Debug.print "Shapes " = ActiveDocument.Shapes.count
 
End Sub

Dis moi ce que ça donne.