Je voudrais savoir comment peut on faire en vba pour rechercher un mot dans un document word, puis apres l'avoir trouvé, descendre de 5lignes en dessous de ce mot.
Sub toto()
Dim mot As String
mot = InputBox("Entrez le mot à chercher")
With Selection.Find
.ClearFormatting
.Execute FindText:=mot, Forward:=True
If .Found = True Then Selection.MoveDown Unit:=wdLine, Count:=5
End With
End Sub
