Discussion :

[coach17]

Bonjour,

suite à un publipostage j'obtiens une page par enregistrement.

Je souhaiterais adapter le style de la page en fonction du 1er mot de la page (récupéré par le publipostage, j'avais d'abord essayé de récupérer le 1er champs mais je n'ai pas réussi)
Ce bout de code fonctionne page par page

Code :

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

1
2
3
4
If ActiveDocument.Words(1) = "TRUC" Then
    Selection.WholeStory
    Selection.Style = ActiveDocument.Styles("styleTRUC")
  End If

Y-a-t-il moyen d'executer ce code sur chacune des pages en une fois ?

Merci pour votre aide

[E KERGRESSE]

Bonjour,

A tester :

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
26
27
28
29
Sub MajStyleSuivantPremierMot()
 
Dim MonDocument As Document
Dim PageEncours As Integer, I As Integer
Dim StyleEncours As String
 
    Set MonDocument = ActiveDocument
    With MonDocument
 
         PageEncours = 0
         For I = 1 To .Range.Paragraphs.Count
             .Range.Paragraphs(I).Range.Select
             If Selection.Range.Information(wdActiveEndPageNumber) <> PageEncours Then
                Select Case Selection.Words(1)
                       Case "TRUC", "TRUC2"
                            StyleEncours = "Citation intense"
                       Case "MACHIN", "CHOSE"
                            StyleEncours = "Citation"
                       Case Else
                            StyleEncours = Selection.Words(1).Style
                End Select
                PageEncours = .Range.Paragraphs(I).Range.Information(wdActiveEndPageNumber)
             End If
             Selection.Style = MonDocument.Styles(StyleEncours)
         Next I
    End With
    Set MonDocument = Nothing
 
End Sub