Discussion :

[nabou44]

Bonjour !

Je génère des documents rtf à partir du logiciel SAS. Ce logiciel ne me permet pas de gérer facilement les sauts de page et de section dans le document final; il m'en génère trop.
Donc dans mon document final, j'ai beaucoup de sauts de section en trop.
J'aimerais pouvoir faire une macro qui me lise le contenu de chaque page et s'il y a rien, me supprime mon saut de section de la page.

Petite précision : le format du texte dans mon document word est uniquement sous forme de tableau. C'est du au logiciel SAS, il utilise "ODS RTF Text = ".

Merci d'avance !

[Heureux-oli]

Bonjour et bienvenue sur les forums Office de DVP.

Aurais-tu un fichier en exemple ?

Les pages ne sont pas des objets gérés par Word, c'est là que réside toute la difficulté.

[nabou44]

C'est bien ce qui me semblait... je trouvais pas d'objet page.
Du coup faut parcourir les sections???
j'arrive pas à tester si elles ne contiennent aucun caractère.

Exemple en PJ.

Merci !

[Heureux-oli]

Essaie comme ça :

Code :

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

1
2
3
4
5
6
7
8
9
 
Sub testSection()
Dim oSec As Section
For Each oSec In ActiveDocument.Sections
    If Len(oSec.Range.Text) = 2 Then oSec.Range.Delete
 
Next oSec
 
End Sub

En fait, il ne faut pas vérifier le contenu de la page, mais le contenu de la section.
si la section ne contient rien, elle a une taille de 2 caractères.

[nabou44]

eh ça marche !
mais pour une seule section...
j'ai testé sur un document où j'avais trois pages vides à la suite et il m'a supprimé que la première

Pourtant le for Each permet de boucler sur toutes les sections??

oui, je sais je suis vraiment débutante...

[nabou44]

Désolée !! en fait ça marche nickel !!!
merci beaucoup !
je croyais que ça marchait pas ds certains cas mais j'avais zappé que j'avais des sauts de page entre deux sauts de section inutiles, du coup la taille de la section n'est pas 2 !!

du coup j'ai modifié le code en remplaçant " = 2" par "< 5"

MERCI MERCI BEAUCOUP !!!

[Heureux-oli]

C'est une des raisons pour laquelle c'est plus facile avec un fichier et même avec un fichier, c'est pas toujours le top.

Content d'avoir pu t'aider.

Si tu pouvais cliquer sur résolu ce serait extra.

[8e8eClo]

Bonjour,

Je fais remonter ce sujet car j'aimerais appliquer le même esprit mais à du texte.
C'est à dire que si la section contient le mot "xxtp" la section est supprimée.

Merci beaucoup


Autre possibilité : Supprimer un champ de formulaire s'il comprend le mot "xxtp".