Word :saut de page bizarrerie n°3 [Résolu]

[120]

Comme dans mes deux précédents messages (sans réponses ),il s'agit encore d'une bizzarrerie avec les sauts de page et de section avec Word
par exemple ce code fonctionne bien dans une macro Word

Code :

1
2
3
4
5
6
with Selection.Find
            .Text = "Suite" & Chr(13) & Chr(12)
            .Replacement.Text = ""
            .Format = False
            .Execute Replace:=2
     End With

mais son équivalent dans mon code VBA access qui crée le doc Word ne marche pas

Code :

1
2
3
4
5
6
7
8
    With MyWord
        With .Selection.Find
            .Text = "Suite" & Chr(13) & Chr(12)
            .Replacement.Text = ""
            .Format = False
            .Execute Replace:=2
        End With
    End With

alors que celui ci marche

Code :

MyWord.Selection.typetext "Suite" & Chr(13) & Chr(12)

Quelqu'un pourrait-il essayer de me tirer de ce mauvais pas ?

[120]

Bon voilà un problème de réglé...
Me demandez pas pourquoi mais pour résoudre le problème, il fallait écrire

Code :

1
2
3
4
5
6
7
8
    Dim myRange
with myWord
    Set myRange = .ActiveDocument.Content
    Do
        myRange.Find.Execute FindText:="Suite" & Chr(13) & Chr(12), Forward:=True
        If myRange.Find.Found Then myRange.Delete
    Loop While myRange.Find.Found
end with

ps : Si quelqu'un peut m'expliquer pourquoi, je suis quand même preneur...