Discussion :

[vieuxmonsieur]

Bonjour,
Est-il possible qu'un code vba (lequel) s'exécute uniquement dans la table des matières en portant 50 lignes par page ?
Ca concernerait les pages 1 à 20 (pour l'instant).

Exemple :

Saut de section page impaire
50 lignes
Saut de page
50 lignes
Saut de page
50 lignes
Saut de page
les lignes restantes
Saut de section page impaire

En vous remerciant

[vieuxmonsieur]

Merci à tous ceux qui m'ont lu.

[Heureux-oli]

Salut,

Peut-être comme ça :

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
18
19
20
21
22
23
24
25
Sub testTOC()
Dim myPar As Paragraph
Dim intP As Long
 
 intP = 0
'Boucle sur les paragraphes du document
For Each myPar In ActiveDocument.Paragraphs
'Si le style commence par TM, on est dans la TOC
    If Left(myPar.Style, 2) = "TM" Then
    'Incrémentation du compteur
    intP = intP + 1
    Debug.Print myPar.Style & " - " & intP
    'Si le compteur = 50
        If intP = 50 Then
        myPar.Range.Select
        Selection.Collapse direction:=wdCollapseEnd
        'Ajout d'un saut de page
        Selection.InsertBreak Type:=wdPageBreak
        'Réinitialisation du compteur
        intP = 0
        End If
    End If
Next myPar
 
End Sub

[vieuxmonsieur]

Bonjour Heureux_oli,
Peux-tu me dire comment utiliser ce code stp.
En te remerciant.

[Heureux-oli]

Salut,

Alt + F11 pour ouvrir le VBE.

Dans le module ThisDocument du Normal.Dot, tu colles ce code.
Ensuite, avec le curseur de la souris dans le code, il suffit de faire F5.

http://heureuxoli.developpez.com/office/word/vba-all/

[vieuxmonsieur]

Bonjour Heureux-oli,
Reçois tous mes remerciements.
En te souhaitant une excellente journée et +