Macro Remplacer tabulation [Résolu]

[liop49]

Bonjour,

J'ai créé une macro sous word qui me pose un pb.
Je fais une sélection de texte sur laquelle je lance une recherche. A chaque fois qu'il trouve une tabulation, il remplace par trois espaces.
Voici ma macro :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub Remplacer_Espace()
'
' Remplacer tabulation Macro
' Macro enregistrée le 24/04/2007 par Nicolas Baudry
'
 
    With Selection.Find
        .Text = vbTab
        .Replacement.Text = "   "
        .Forward = True
        .Wrap = wdFindAsk
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub

Le pb est qu'il lance la macro sur l'ensemble de mondocument et non sur la sélection uniquement!!!!

Est ce que quelqu'un peut m'aider pour le forcer à rester sur la sélection. d'ailleur sans macro, il y a une boite de dialogue qui s'ouvre et qui demande si on veut le faire au reste du document; dans le cas de ma macro, il passe outre cette boite de dialogue et l'applique à l'ensemble du doc.

Merci d'avance pour votre aide.

Nini

[ouskel'n'or]

Teste ça

Code :

1
2
3
4
5
6
With Selection.Find
    .Text = vbTab
    .ClearFormatting
    .Replacement.Text = "   "
    .Execute Replace:=wdReplaceAll
End With

Tu dis

[liop49]

Yes tu es un as !

Merci pour ton aide ouskel'n'or

Nini