Bonjour,

J'ai créé une macro pour remplacer tous les saut de page du document par un saut de section.

Quand j'exécute la macro pas à pas sur le document, tout se passe bien. Mais si j'exécute la macro d'un coup, elle bug toujours avec le message "Exécution interrompue" mais jamais au même endroit! Parfois sur le premier saut de page, parfois beaucoup plus loin.

Un peu d'aide serait bien appréciée!

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
Sub InsertionSautPage()
 
 
    Do
     selection.Find.ClearFormatting
     selection.Find.Text = "^m"
     selection.Find.Execute
            If selection.Find.Found = False Then
 
    Else
 
    selection.Find.Text = "^m"
    selection.delete Unit:=wdCharacter, count:=1
    selection.InsertBreak Type:=wdSectionBreakNextPage
 
    End If
  Loop While selection.Find.Found = True
 
End Sub
Merci!

Souriane