Supprimer une page donnée de plusieurs document words avec des noms diffèrents [Résolu]

[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 :

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.

[Alahsan]

Quand je mets le code que tu m'a donné dans une macro VBA je me retrouve avec un message d'erreur me disant : erreur d'execution '13' : incompatibilité de type.

Ce sont 7 images qui composent ma dernière page en fait.

[Heureux-oli]

Pourrais-tu mettre un exemple sur le forum.

[Alahsan]

J'ai mis une impression écran de la page en question en pièce jointe.

Bon par contre l'impression écran a été prise sur writer parce qu'à cette heure ci je suis chez moi et qu eje n'ai pas la licence office ^^.

donc quand vous allez voir la gueule de la bavure ça va en faire rigoler plus d'une je pense ^^.

[Heureux-oli]

Avec un image, je ne peux rien faire, j'aurais besoin d'un fichier Word, pour chercher les objets à supprimer.

[Alahsan]

Ah ok !!! Mais le noeud du problème justement c'est que ce fichier word est devenu super lourd à cause de cette dernière page (un peu moins de 4 Mos en fait :/)

Je vais voir si la version compressée rentre comme pièce attachée.

[Heureux-oli]

A la rigueur, ne laisse qu'une image on verra comment elle est dans le document.

[Alahsan]

Une image de?

J'avoue ne pas avoir bien saisi le sens de ta dernière réponse.

Et j'ai vérifié la version compressé du document word fait tout de même 800 Ko donc ça dépasse largement la limite autorisée.

[Heureux-oli]

Tu me dis que la dernière page comporte plusieurs images.
Si tu enlèves toutes les images sauf une, je pourrrais voir comment elle est insérée dans le document pour l'enlever.

[Alahsan]

Pour te dire même si je supprime quasi tout le document en ne laissant qu'une image sur les 7 je me retrouve quand même avec un fichier de 650 Ko :/.

Je continue à chercher une solution pour lier le fichier.

[ouskel'n'or]

Bonsoir Oli, Alahsan,
Peut-être ne sont-ce pas des shapes, ni des inlineShapes, ni des Oleobjects mais tu peux toujours tester

Code :

1
2
3
4
5
Sub KillShapeRange()
    Set LeDoc = ActiveDocument.Range
    MsgBox LeDoc.ShapeRange.Count
    LeDoc.ShapeRange.Delete
End Sub

et si tu as une erreur, ce n'est pas des "shaperange" non plus
Tu dis
A+

Pour avoir le N° de la dernière page, c'est

Code :

1
2
3
    Selection.EndKey Unit:=wdStory
    NumPage = Selection.Information(wdActiveEndPageNumber)
    MsgBox NumPage

On peut l'avoir directement mais je ne sais plus comment sélectionner la page, le code m'échappe
A+

PS - Tu as testé ma réponse ?

[Alahsan]

Etant donné que chez moi je n'ai que Open Office je n'ai pas encore pu tester ta réponse , mais je te dis ça demain dès que je peux ^^

Merci de votre aide en tous cas ^^

[Alahsan]

Envoyé par ouskel'n'or

Bonsoir Oli, Alahsan,
Peut-être ne sont-ce pas des shapes, ni des inlineShapes, ni des Oleobjects mais tu peux toujours tester

Code :

et si tu as une erreur, ce n'est pas des "shaperange" non plus
Tu dis
A+

Pour avoir le N° de la dernière page, c'est

Code :

On peut l'avoir directement mais je ne sais plus comment sélectionner la page, le code m'échappe
A+

PS - Tu as testé ma réponse ?

Donc , après test des codes que tu m'a donné j'obtiens 19 pour le premier et 8 pour le second ^^

Et après coup je me suis aperçu que ta macro m'a effectivement éffacé une des 7 images contenues dans ma dernière page (donc en théorie l'image en question serait du format concerné mais pas les autres.)

Et effectivement j'ai bien 8 pages sur mon document.

[Alahsan]

A partir des éléments que vous m'avez donné j'ai pu établir un petit code qui me permets de compter le nombre d'éléments.

Code :

1
2
3
4
5
6
7
 Sub CountShape()
 
    Set LeDoc = ActiveDocument.Range
    MsgBox ("InlinesShapes = " & LeDoc.InlineShapes.Count)
    MsgBox ("ShapeRange = " & LeDoc.ShapeRange.Count)
 
End Sub

ça me retourne les valeurs respectives suivantes :
6
19

[Heureux-oli]

Le principe devra être la suppression des derniers éléments. Et il vaut mieux commencer par la fin.