Bonjour,
je recherche tous les paragraphes qui commence par "Action" ou "Question"
Voici mon code qui ne fonctionne pas :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
Selection.Find.ClearFormatting
    With Selection.Find
        .Text = "Action " Or "Question "
    End With
    Selection.Find.Execute
    Selection.MoveRight Unit:=wdCharacter, Count:=1 
    Selection.Style = ActiveDocument.Styles("Titre 2")
Merci pour votre aide