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!
Merci!
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
Souriane
Partager