Word: macro qui modifie hors-sélection

Résolu/Fermé

Armulis Messages postés 1236 Date d'inscription vendredi 17 juin 2011 Statut Membre Dernière intervention 10 mai 2020 - 17 févr. 2012 à 18:55
Armulis Messages postés 1236 Date d'inscription vendredi 17 juin 2011 Statut Membre Dernière intervention 10 mai 2020 - 25 févr. 2012 à 15:52

Bonjour,

J'ai écrit une macro pour modifier une partie de mon texte que j'aurais préalablement sélectionnée, mais la macro agit sur la sélection et sur tout ce qui apparaît après. Elle ne touche pas le début du document.

J'aimerais que ma macro ne modifie que ce que j'ai sélectionné.

Je vous la mets ici, en exemple:

Sub Codage01()
'
' Codage01 Macro
' Macro enregistrée le 16/02/2012 par Michael Baracco
'

Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "Albert"
.Replacement.Text = "Alfred"
.Forward = False
End With
Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "Jean-Luc"
.Replacement.Text = "Jean-Pierre"
.Forward = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub

C'est une macro toute simple pour remplacer des éléments de mon texte.
J'aimerais aussi que la macro puisse faire la différence entre les majuscules et les minuscules. Savez-vous comment on fait ça?

A voir également:

Word: macro qui modifie hors-sélection
Supprimer une page word - Guide
Espace insécable word - Guide
Organigramme word - Guide
Word gratuit - Guide
Signature électronique word - Guide

2 réponses

Réponse 1 / 2

m@rina Messages postés 20075 Date d'inscription mardi 12 juin 2007 Statut Contributeur Dernière intervention 25 avril 2024 11 272
18 févr. 2012 à 00:59

Bonjour

Essaie ça :

With Selection.Find
    .ClearFormatting
    .Replacement.ClearFormatting
    .Text = "Albert"
    .Replacement.Text = "Alfred"
    .Wrap = wdFindStop
    .MatchCase = True
    .Execute Replace:=wdReplaceAll
End With

m@rina

Réponse 2 / 2

Armulis Messages postés 1236 Date d'inscription vendredi 17 juin 2011 Statut Membre Dernière intervention 10 mai 2020 408
25 févr. 2012 à 15:52

Merci M@rina!

Discussions similaires

Symbole Attention dans Word

Fichier word verrouillé

Discussions similaires

Newsletters