Discussion :

[jojomif]

Bonjour,

J'essaie de remplacer du texte qui se trouve dans une boîte de texte. Je n'arrive pas à comprendre pourquoi cela ne fonctionne pas. Certaines boîtes de textes sont incluse dans une boîte de texte mais même si ce n'est pas le cas, cela ne fonctionne pas. Est-ce que vous auriez une idée pour me débloquer?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Public Sub Find_Replace(F As String, R As String, wdMainDoc As Word.Document)
 
        Dim oShape As Shape
 
        For Each oShape In wdMainDoc.Shapes
 
        oShape.Select
 
                If Len(R) > 2 Then
                    F = Left(F, InStr(1, F, "]", 1))
                    R = Left(R, Len(R) - 2)
                    With Selection.Find
                        .Text = F
                        .Replacement.Text = R
                        .Execute Replace:=wdReplaceAll
                    End With
                End If
        Next oShape
 
End Sub

Merci,

[fraflt69]

Bonjour

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Public Sub Find_Replace(F As String, R As String, wdMainDoc As Word.Document)
 
For i = 1 To wdMainDoc.Shapes.Count
If wdMainDoc.Shapes(i).TextFrame.HasText Then
            With wdMainDoc.Shapes(i).TextFrame.TextRange.Words
                'Boucle sur les mots
 
            For j = 1 To .Count
                .Item(j).Text = Replace(.Item(j).Text, F, R)
            Next
        End With
End If
Next
End Sub
 
 
Sub replacer_aaa_par_ccc()
Call Find_Replace("aaa", "ccc", ActiveDocument)
End Sub

[Heureux-oli]

Salut,

Je ne vois pas l'intérêt de compter les shapes.
On peut boucler sur les objets.

Code :

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

1
2
3
4
5
6
7
8
9
Sub Olivier001()
Dim oSh As Shape
 
For Each oSh In ActiveDocument.Shapes
    oSh.TextFrame.TextRange.Select
        Selection.Find.Execute2007 "Pote", , , , , , True, , , "Olii"
Next oSh
 
End Sub

On peut utiliser la fonction recherche et remplacement directement sur la sélection.