Vba

lydia -
tompols Messages postés 1273 Date d'inscription Statut Contributeur Dernière intervention - 27 avr. 2005 à 10:25

Salu ,

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

Afficher la suite

1 réponse

tompols Messages postés 1273 Date d'inscription Statut Contributeur Dernière intervention 460

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

A+

Vba

1 réponse

Discussions similaires

Newsletters