Discussion :

[Uranne-jimmy]

Bonjour, vlà un code :

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
Sub remplacer(ByRef doc As Document, ByRef recherche As String, ByVal remplace As String)
    doc.Content.Select
    MsgBox ("remp")
    Set myrange = doc.Content
    myrange.Find.Execute FindText:=recherche, ReplaceWith:=remplace, _
    Replace:=wdReplaceAll
    For Each sh In doc.Shapes
        Set myrange = sh
        myrange.Find.Execute FindText:=recherche, ReplaceWith:=remplace, _
        Replace:=wdReplaceAll
    Next
    For Each sec In doc.Sections
        Set myrange = sec
        Selection.Find.Execute FindText:=recherche, ReplaceWith:=remplace, _
        Replace:=wdReplaceAll
    Next
 
End Sub

Dans l'absolu je voudrais savoir si il existe un moyen de sélectionner tout, y compris shapes et sections, en une fois. Sinon, j'aimerais comprendre pourquoi find.execute ne fonctionne pas pour shapes et sections uniquement. S'il vous plait :/

[Uranne-jimmy]

euh ... laissez tombé, j'avais mal parcouru la biblio et pas spécialement pris le temps de réfléchir, visiblement.

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
For Each sh In doc.Shapes
        If InStr(sh.Name, "Text") Then
            Set myrange = sh.TextFrame.TextRange
            myrange.Find.Execute FindText:=recherche, ReplaceWith:=remplace, _
            Replace:=wdReplaceAll
        End If
    Next
    For Each sec In doc.Sections
        For Each h In sec.Headers
            Set myrange = h.Range
            myrange.Find.Execute FindText:=recherche, ReplaceWith:=remplace, _
            Replace:=wdReplaceAll
        Next
        For Each h In sec.Footers
            Set myrange = h.Range
            myrange.Find.Execute FindText:=recherche, ReplaceWith:=remplace, _
            Replace:=wdReplaceAll
        Next
    Next