Discussion :

[Sandrine1]

Bonjour,

Je travaille sur un document qui contient plusieurs sauts de section, dont un saut de page qui est parfois remplie et parfois vide. Je souhaiterai faire une macro qui supprimerait les pages vides correspondant à ce saut de page. Quelqu'un aurait une idée?

Merci

[Heureux-oli]

Salut,

Pourrais-tu nous donner un peu plus de détails ?

Un saut de page ne contient en général rien.

[Sandrine1]

Salut!

En fait mon saut de page contient un signet, qui sera rempli ou pas (mon document word est un document d'extraction qui communique avec un logiciel...). Je sais pas si c'est plus clair? En fait si la page correspondant au saut de page est vide j'aimerai pouvoir la supprimer...

Merci

[carden752]

bonjour,

Tu peux tester si ton signet est vide pendant l'extraction (Fusion, je suppose??). Attention, cela te demandera certains de gérer les évènenements ce qui risque de ralentir la fusion du document.
Ou alors a la fin de l'extraction, tu peux rechercher et supprimer tes pages blanches, je pense que c'est ce que tu souhaites faire

Merci d'essayer de mieux nous expliquer ton besoin sinon

Cordiaement,
Christophe

[Sandrine1]

Bonjour,

Oui effectivement ce que je souhaiterai faire c'est qu'à la fin de mon extraction, une macro se lance et supprime les pages blanches. j'avais lu quelque part qu'une page blanche ça n'a pas de sens pour word mais qu'un saut de page ou un signet il le reconnait...

[Heureux-oli]

Salut,

C'est pas si simple, un signet est reconnu, mais si c'est un point d'insertion, Word ne peut pas savoir si il y a du texte ou pas.

Dans les autres cas, lorsque l'on insère du texte sur un signet, il est détruit.

Le but serait de savoir si une portion de document contenue entre deux sauts de page contient quelque chose et si ce n'est pas le cas, il faut supprimer un saut de page.

[carden752]

Bonjour Heureux-Oli et Sandrine,

Effectivement, à la fin de la fusion, tu ne peux plus retravailler sur tes signets mais tu peux utiliser la gestion d'évènement pour le faire pendant la fusion.

Est-ce que l'évènement MailMergeBeforeRecordMerge ne permettrait pas de tester si la valeur du signet est vide. Ceci dit il te faudra donc faire ta correction par macro pendant l'extraction ce qui ralentira énormément le traitement (autant de fois que d'enregistrements).

Code :

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

1
2
3
Dim withevents wdapp as Application
set wdapp = application
private sub wdapp_MailMergeBeforeRecordMerge(Byval doc as Document, Cancel as Boolean)

Par contre pourquoi le faire forcément par macro, tu ne peux pas le faire directement par un test sur la valeur de ce signet dans ta lettre type?

Cordialement,
Christophe