Problème de sélection [Résolu]

[Arsene12]

Bonsoir,
Sur une page Word, j'ai 2 expressions contenues dans des balises :

&&&Expression01&&&
---Blabla bla--
***Expression02***

Je sélectionne la première expression, et je lui ajoute un signet :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
With Selection.Find
.ClearFormatting
.Text = "&&&"
.MatchWildcards = 0
.Forward = 1
.Replacement.Text = ""
.Replacement.ClearFormatting
.Execute ' recherche du mot1
Selection.MoveRight 'déplacement a droite du mot
.Text = "&&&"
Selection.Extend ' etendre la selection
.Execute ' atteindre le mot2
Selection.MoveLeft Unit:=wdCharacter, count:=3 
End With
    ActiveDocument.Bookmarks.Add _
        Name:="myplace", Range:=Selection.Range

Jusqu'ici tout va bien. Mais lorsque je veux retourner au début du document et sélectionner l'expression en dessous, j'y arrive pas. A cause de cela, je ne peux continuer ma macro. Pourriez-vous m'aider? Merci d'avance.
Arsène

[Heureux-oli]

Salut,

Je ne vois pas ce qui pose problème dans ce code.
Qui je pense est incomplet.

[Arsene12]

Bonjour, ce code fonctionne bien il est vrai mais j'ai peut-être pas posé la bonne question. après avoir exécuté ce code, vous vous retrouvez avec une expression sélectionnée associée à un signet. Je voudrai "dé-sélectionner" l'expression pour revenir au début.

Si je fais :

Code :

Selection.HomeKey Unit:=wdStory

ça me sélectionne de la fin de l'expression jusqu'au début.

[Heureux-oli]

Salut,

Dans ton code, tu modifies la propriété de l'objet Selection en lui donnant .Extend
donc, tous les déplacements de Selection que tu fais sont fait avec la propriété .Extend
Si tu veux simplement déplacer ton point d'insertion et pas tout sélectionner.

Code :

1
2
Selection.Collapse Direction:=wdCollapseEend
Selection.Homekey Unit:=wdStory

[Arsene12]

Selection.Collapse Direction:=wdCollapseEnd
Selection.Homekey Unit:=wdStory[/code]

Bonjour, j'avais fini par le déduire en cherchant un peu. Merci pour la confirmation.