Discussion :

[mouftie]

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

[mouftie]

Bonjour,
Je n'ai pas beaucoup de succès.
C'est sur que vba Word n'est pas aussi utilisé qu'Excel, mais ma question ne me parait pas rare ?

[clementmarcotte]

Bonjour

Code :

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

 .Text = "Action " Or "Question "

Fais deux passages. Un avec Action et l'autre avec Question

Code :

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

  Selection.MoveRight Unit:=wdCharacter, Count:=1

Là tu tasses tu prolonges ta sélection d'un seul caractère. Utilises wdParagraph

https://docs.microsoft.com/en-us/pre...2(v=office.14)