Vba

Fermé

lydia - 26 avril 2005 à 22:58
tompols Messages postés 1273 Date d'inscription jeudi 29 juillet 2004 Statut Contributeur Dernière intervention 25 novembre 2013 - 27 avril 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

A voir également:

Vba
Excel compter cellule couleur sans vba - Guide
Mkdir vba ✓ - Forum VB / VBA
L'indice n'appartient pas à la sélection vba ✓ - Forum Programmation
Vba range avec variable ✓ - Forum VB / VBA
Vba autofill ✓ - Forum Excel

1 réponse

Réponse 1 / 1

tompols Messages postés 1273 Date d'inscription jeudi 29 juillet 2004 Statut Contributeur Dernière intervention 25 novembre 2013 435
27 avril 2005 à 10:25

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+

Discussions similaires

"L'indice n'appartient à la sélection" + VBA

Erreur d'exécution 13 Incompatibilité de type

ouverture d'un fichier excel à partir d'un code VBA

Méthode find dans VBA - Recherche de données sous Excel

appliquer une pause dans une macro vba excel