Rechercher 1 seule occurence avec vba word

Fermé
Big bug - 14 août 2015 à 10:36
Bonjour,
J'ai un problème avec rechercher dans vba word.
J'indique la page pour rechercher des mots. Si les mots sont trouvés il fait une action.
La macro marche quand tous les mots sont trouvés et présents dans la page.
Cependant quand un mot n'est pas présent dans la page, il va sur une autre page pour chercher le mot et fait l'action.
J'aimerais qu'il cherche qu'1 fois dans la page qu'il se contente que de la page indiquée et si il ne trouve pas qu'il ne fasse rien.

numero = 6
Selection.GoTo What:=wdGoToPage, Which:=wdGoToAbsolute, Count:=numero
ActiveDocument.Bookmarks("\page").Range.Select 'sélectionne la page en entier
Selection.Find.Execute FindText:="Methods:"
With Selection.Find
.ClearFormatting
.Forward = True
.Wrap = wdFindContinue
.Font.Bold = True
.Format = False
.MatchCase = True

If .Found Then
Selection.Find.Execute
Selection.MoveLeft Unit:=wdCharacter, Count:=1
Selection.TypeBackspace
Selection.TypeParagraph
End If
End With


numero = 6
Selection.GoTo What:=wdGoToPage, Which:=wdGoToAbsolute, Count:=numero
ActiveDocument.Bookmarks("\page").Range.Select
Selection.Find.Execute FindText:="Results:"
With Selection.Find
.ClearFormatting
.Forward = True
.Wrap = wdFindContinue
.Font.Bold = True
.Format = False
.MatchCase = True

If .Found Then
Selection.Find.Execute
Selection.MoveLeft Unit:=wdCharacter, Count:=1
Selection.TypeBackspace
Selection.TypeParagraph
End If
End With
A voir également: