Probléme de remplacement de texte (VBA Word 2003)Résolu

Question

Donc un petit probl&#233;me (que des petits probl&#233;me et de grande solution!)

Lorsque j'execute la fonction RemplacerText (ci dessous) le remplacement se fait dans tout le document et non pas seulement dans l'objet range pass&#233;e &#224; ma fonction!
Command faire pour remplacer uniquement le texte dans le range pass&#233;e &#224; ma fonction?

'------------------------------------------------------------------------------------------------------------------------
Sub RemplacerText(ByVal RangeAModif As Range, ByVal TextRecherche As String, ByVal TextRemplace As String)
Dim EtatAlert As Long: EtatAlert = Application.DisplayAlerts
Application.DisplayAlerts = wdAlertsNone
    With RangeAModif.Find
        .ClearFormatting
        .Replacement.ClearFormatting
        .Text = TextRecherche
        .Replacement.Text = TextRemplace
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
        .Execute Replace:=wdReplaceAll
    End With
Application.DisplayAlerts = EtatAlert
End Sub
'------------------------------------------------------------------------------------------------------------------------

Merci bien

 Faut pas s'enerver

Polack77 · Accepted Answer

Parfois j'ai l'impr&#233;sion d'&#234;tre tout seul!
Bon je met la reponce &#224; ma question m&#234;me si j'ai unpeut l'impr&#233;sion que tout le monde s'en cogne!

Alors pour ne faire le remplacement que dans l'ogjet range (ou selection) il faut simplement metter la valeur .Wrap &#224; wdFindStop et non pas wdFindContinue ou wdFindAsk (si on interdi &#224; Word les message de question Ask = Continue). La fonction est donc

'------------------------------------------------------------------------------------------------------------------------
Sub RemplacerText(ByVal RangeAModif As Range, ByVal TextRecherche As String, ByVal TextRemplace As String)
Dim EtatAlert As Long: EtatAlert = Application.DisplayAlerts
Application.DisplayAlerts = wdAlertsNone
    With RangeAModif.Find
        .ClearFormatting
        .Replacement.ClearFormatting
        .Text = TextRecherche
        .Replacement.Text = TextRemplace
        .Forward = True
        .Wrap = wdFindStop 

        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
        .Execute Replace:=wdReplaceAll
    End With
Application.DisplayAlerts = EtatAlert
End Sub
'------------------------------------------------------------------------------------------------------------------------

 Faut pas s'enerver

Polack77 · Answer

Une solution pourait &#234;tre de ne faire q'un remplacement &#224; la fois dans une boucle qui tourne temps que le texte est trouver. Mais cela rempli la pile "Annuler" et j'ais d&#233;ja rencontrer des probl&#233;mes avec, donc je la vide et du coup c plus long &#224; l'execution
 (boucle + vide annuler).

Cela donerais &#231;a :

'------------------------------------------------------------------------------------------------------------------------
Sub RemplacerText(ByVal RangeAModif As Range, ByVal TextRecherche As String, ByVal TextRemplace As String)
Dim EtatAlert As Long: EtatAlert = Application.DisplayAlerts
Application.DisplayAlerts = wdAlertsNone
    If InStr(1, RangeAModif.Text, TextRecherche) Then
    Do While InStr(1, RangeAModif.Text, TextRecherche)
        With RangeAModif.Find
            .ClearFormatting
            .Replacement.ClearFormatting
            .Text = TextRecherche
            .Replacement.Text = TextRemplace
            .Forward = True
            .Wrap = wdFindContinue
            .Format = False
            .MatchCase = False
            .MatchWholeWord = False
            .MatchWildcards = False
            .MatchSoundsLike = False
            .MatchAllWordForms = False
            .Execute Replace:=wdReplaceOne
        End With
        RangeAModif.Document.UndoClear
    Loop
    End If
Application.DisplayAlerts = EtatAlert
End Sub
'------------------------------------------------------------------------------------------------------------------------

Si qu'elqun &#224; mieu merci de me le faire savoir!
Bon c vrais que ca marche quand m&#234;me!
(Si personne n'a mieu je valide ma r&#233;ponce, mais pas aven demain pour ne pas d&#233;courager les personnes qui lirais ce message)

 Faut pas s'enerver

Polack77 · Answer

Heeeeeeeu, petite remarque &#224; la con : le "If InStr(..." ne sert &#224; rien! 

 Faut pas s'enerver

Polack77 · Answer

Ca marche pas!!!!!!!!!!!!!!!!!!!!!!!

Le code que j'ai mis plus haut (celui avec la boucle) ne marche pas vraiment!
Il semble que l'action replace modifi l'objet range qui ne selectione plus la m&#234;me plage de don&#233;es.
Il me faut un code qui remplace le text uniquement dans l'objet range et d'un seul coup.

Merci

 Faut pas s'enerver

Probléme de remplacement de texte (VBA Word 2003)

4 réponses

Discussions similaires