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.
Merci
1 réponse
Votes
Date
Date décroissante
tompols
Contributeur
Salut,
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
