Discussion :

[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 :

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

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 :

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

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 :

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

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 :

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

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...