Discussion :

[popi33370]

Bonjour,

J'ai un cas particulier à régler et votre aide me sera très utile pour avancer vers une solution.

J'arrive à générer un document Word qui ressemble à ceci (extrait) :

et mon problème est bien visible ici = j'ai un organisme qui est à cheval sur 2 pages ce qui gêne la lecture

Je recherche une solution pour insérer un saut de page juste avant le titre (ici "ECTI - Délégation départementale" qui est de style "Titre 3") uniquement si la ligne de fin (ici un long trait qui est de style "Titre 7") se trouve sur une autre page.

Je commence à me débrouiller en VBA Word, mais il y a encore trop de notions qui m'échappent : je sais parcourir tous les paragraphes, et peut-être qu'ici une stratégie serait de vérifier qu'entre un "Titre 3" et son "Titre 7" si on trouve un saut de page alors on remonte au "Titre 3" pour insérer un saut de page et l'autre doit normalement disparaitre en dynamique ... Facile à dire ...

D'avance un grand merci pour vos suggestions

[clementmarcotte]

Bonjour,

Juste pour être sûr.

1) Les trois lignes en haut de la colonne de gauche de la deuxième page, sont en fait la fin de la colonne de droite de la première page ?

2) En "sautant" la page, est-ce que "ECTI - Délégation départementale" doit rester à droite, ou doit-il commencer à gauche de l'autre page ?

Ceci dit, je ne sais pas trop. Cela demande réflexion.

[popi33370]

Bonjour,

Oui, c'est du texte avec mise en page sur 2 colonnes donc la fin de la page en bas à droite continue sur la page suivante en haut à gauche.

Je pensais à une approche de ce style :
- je parcours tous les paragraphes du début à la fin
- si je trouve un "Titre 3" je garde le numéro de page
- si je trouve un "Titre 7" je compare son numéro de page avec celui du "Titre 3" précédent
et si pas même page alors je remonte jusqu'au "Titre 3" et j'insère un saut de page

Mais j'ai pas encore l'habileté suffisante avec le VBA de Word pour gérer ça

[popi33370]

Finalement j'y suis arrivé et je publie ce bout de code car ça pourrait servir à d'autres :

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
 
For Each PAR In ActiveDocument.Paragraphs
    PAR.Range.Select
    If (PAR.Style = "Titre 3") Then
        LPAGE = Selection.Range.Information(wdActiveEndAdjustedPageNumber)
        NPAR = 1
    End If
 
    If (PAR.Style = "Titre 7") Then
        CPAGE = Selection.Range.Information(wdActiveEndAdjustedPageNumber)
        If (CPAGE <> LPAGE) Then
            Selection.MoveUp Unit:=wdParagraph, Count:=NPAR
            Selection.InsertBreak
        End If
    End If
    If (NPAR > 0) Then NPAR = NPAR + 1
Next PAR

Le principe est simple :
- je parcours mes paragraphes
- si "Titre 3" je garde son numéro de page et à partir de là je compte le nombre de paragraphes jusqu'au "Titre 7" suivant (dans NPAR)
- si "Titre 7" et page différente alors je remonte de NPAR et j'insère un saut de page
et ça fonctionne bien

[Papytrick]

Bonjour,

N'est-ce pas plus simple d'utiliser les fonctionalité basique de word?
Dans le formatage des paragraphes "Keep with next" pour les titres et "keep together" pour les autres paragraphes. Il faut juste être certain de ne pas ainsi créer de gigantesques paragraphes.

[popi33370]

J'y avais pensé, mais chaque ligne de mon document est un paragraphe formaté avec un style différent, d'où le seul repère étant les styles "Titre 3" et "Titre 7".

Mais si on peut faire plus simple je suis preneur MERCI