Macro word : selection de plusieurs lignes

Signaler
-
 pyrof -
Je voudrais selectionner un nombre X de lignes situées entre 2 mots.

ex :
mot1
| ->lignes
| ->à
| ->selectionner
mot2

Quelqu'un peut m'expliquer comment faire cela sous word (macro,vba)??

thanks

1 réponse

Sub test()
Selection.HomeKey unit:=wdStory ' place le cursaur en debut du document
With Selection.find
.ClearFormatting
.Text = "mot1"
.MatchWildcards = 0
.Forward = 1
.Replacement.Text = ""
.Replacement.ClearFormatting
.Execute ' recherche du mot1
Selection.MoveRight 'déplacement a droite du mot
.Text = "mot2"
Selection.Extend ' etendre la selection
.Execute ' atteindre le mot2
Selection.MoveLeft unit:=wdCharacter, Count:=Len("mot2"), Extend:=1
' reculer du mot 2
End With
End Sub