Discussion :

[janneau]

Bonsoir,
J'utilise une macro pour remplacer un mot par 1 autre dans 1 texte de Word. Mais cette macro remplace le mot dans *tout* le texte. Or, je voudrais qu'elle ne le fasse que dans la zone de texte que j'ai sélectionnée. Quelle instruction VBA dois-je utiliser pour la limiter à cette sélection ?
Merci d'avance.

[dadavyvy]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Selection = Replace(Selection, "textecherché", "nouveautexte", , , vbTextCompare)

[Lexot2]

Bonjour

Voici un code qui remplace le mot "beau" par le mot "joli" dans une sélection. Plusieurs options sont possibles :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 With Selection.Find
        .Text = "beau"
        .Replacement.Text = "joli"
        .Forward = True
        .Wrap = wdFindAsk
        .Format = False
        .MatchCase = False
        .MatchWholeWord = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

Cordialement

[janneau]

Merci pour les réponses. La macro que j'utilise est très proche de celle donnée par Lexot2... La seule différence, c'est :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.Wrap = wdFindAsk

alors que j'avais

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.Wrap = wdFindContinue

et c'est ce qui fait toute la différence !!! Là, ça marche !

Par contre, il me pose maintenant une question (doit-il continuer sur le reste du texte?). Serait-ce possible d'éviter d'avoir cette question et de stopper dès la fin de la sélection (sans rien demander.... :o)
Merci encore.

[wape]

Bonjour,

Essaye de remplacer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.Wrap = wdFindAsk

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.Wrap = wdFindStop

wape

[janneau]

Ça marche !! merci à tous.