Discussion :

[Foulq.chr]

Bonjour,

Dans un document avec de nombreux sauts de page de sections (page suivante), je souhaiterait les supprimer.
J'ai essayé avec le code qui se base sur "^b" avec la fonction "remplacer" , mais cela ne fonctionne pas avec les pages de sections (page suivante). Est ce que quelqu'un pourrait il m'aider s'il vous plait?

En vous remerciant par avance,
Christophe

[Heureux-oli]

Salut,

Si tu affiches les caractères non imprimables du document (symbole qui ressemble à un p inversé), tu te positionnes devant le saut de section et tu utilises la touche Del

[Foulq.chr]

Merci pour votre réponse.
Cependant, les documents que j'utilise comportent un très grand nombre de page et de très nombreux sauts de sections que je souhaiterai effacer automatiquement d'un coup et non d'une manière manuelle qui me prendrait beaucoup de temps.
J'ai bien trouvé le code pour la suppression des sauts de section, mais cela ne fonctionne pas pour ce cas particulier de saut de section (page suivante).
Auriez vous s'il vous pait une idée pour supprimer ces sauts de sections automatiquement?

[Heureux-oli]

Salut,

Essaie simplement une recherche et remplacement.
On trouve dans la liste Spécial Saut de page Manuel tu remplaces par un espace ou par rien ou ce que tu veux.

[Foulq.chr]

Oui, j'ai déjà essayé avec "^b" dans la fonction rechercher/remplacer et cela ne fonctionne pas pour ces sauts de sections (page suivante). Avec cette fonction, il reconnait bien les sauts de sections avec la fonction recherche, mais impossible de le remplacer avec quoi que ce soit (vide ou caractères...)
Et le code VBA employer la méthode rechercher/remplacer ne fonctionne pas non plus.

[Heureux-oli]

Salut,

Surprenant, avant d'écrire ma réponse, j'ai fait le test et sans écrire ^b mais en utilisant la liste déroulante.
Mes sauts de section page suivante ont tous été supprimés et remplacé.

[Foulq.chr]

C'est bon, j'ai trouvé. Dans un premier temps, je remplace tous les sauts de sections page suivante par des sauts de page de sections continu.
Après, on peut supprimer tous les saut de page continue avec "^b". La macro est la suivante:

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
20
21
22
23
24
25
Sub SupprimerSautsSectionContinu4()
 
ActiveDocument.PageSetup.SectionStart = wdSectionContinuous
 
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "^b"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = False
.MatchFuzzy = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
 
 
 
End Sub

[Foulq.chr]

J'ai été trop vite. ça n'a pas résolu le problème.
En fait, même une fois mes sauts de section continus obtenues, la fonction Rechercher/remplacer parvient à rechercher les sauts de section (^b) en les sélectionnant, mais en revanche, il refuse de procéder au remplacement par un vide ou autre.
Faudrait il paramétrer quelque chose pour que cela fonctionne?

[Heureux-oli]

Salut,

Si c'est pour un document, pourquoi vouloir écrire un code ?

Si c'est impérativement du VBA que tu souhaites utiliser

Je viens de tester ton bout de code et chez moi, il fonctionne

Si chez toi, il ne fonctionne pas, c'est que tu as autre chose qu'un saut de section

[Foulq.chr]

C'est pourtant bien un saut de section, on peut le voir sur l'image.



Je souhaiterais le faire par un code VBA pour l'intégrer dans toute une série de macro que j'ai réalisé pour rédiger un rapport à partir d'un document Word édité par une application sur téléphone mobile pour réaliser des photos avec annotations.

[Heureux-oli]

Salut,

Si tu essaies ton code sur document où tu aurais inséré des saut de section ça fonctionne.

Aurais-tu un morceau de document ?

[Foulq.chr]

Document 1.docx

Bonjour, oui voilà un extrait du document édité par l'application.

[Foulq.chr]

Ce qui est curieux, c'est que même sans VBA, directement depuis la fonction Rechercher/Remplacer, ça ne fonctionne pas. C'est comme si il y aurait une case à cocher quelque part dans les paramètres de word.

[Heureux-oli]

Salut,

Je ne sais pas pourquoi on ne peut pas les supprimer.
Ce que j'ai tenté, ouvrir le docx et chercher dans le XML si c'étaient des saut de section normaux, c'est le cas. Il y en a au départ 9 et une recherche et remplacement en supprime 2.

J'ai ensuite sélectionné l'un d'entre eux pour chercher quel ChrW utiliser pour les supprimer.
C'est le 12, si je lance le code avec ChrW(12) pareil, j'en supprime 2. Je fais le test sur ceux qui restent et c'est toujours 12 que j'ai comme résultat.

J'ai ensuite cherché dans quel type de StoryType ils se trouvent et c'est dans la MainStory (le texte principal).

J'ai plus d'idée, d'autant plus que manuellement, on peut les supprimer.

[Foulq.chr]

Pensez vous qu'il soit possible de déplacer tous ces sauts de sections en fin de document, afin de les supprimer manuellement de manière groupée?

Sinon, je vais essayer d'ouvrir le fichier sur openoffice pour voir je parviens à les effacer de ce côté, puis revenir sur Word pour faire tourner mes autres macros.

[Foulq.chr]

ou bien également serait il possible de transformer tous ces sauts de sections en sauts de page pour ensuite les supprimer?

[Heureux-oli]

Salut,

Le problème, c'est qu'on ne les trouve pas que ce soit par la fonction de recherche ou via VBA.
Il me vient une idée, je vais chercher via une boucle sur tous les caractères du document.

[Heureux-oli]

Salut,

Ça fonctionne

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub SuppSSec()
Dim oChr
'Boucle sur les caractères du document
For Each oChr In ActiveDocument.Characters
'Si la valeur du caractère est 12 alors suppression
If AscW(oChr) = 12 Then
oChr.Select
Selection.Delete
End If
 
Next oChr
 
End Sub

J'ai bien supprimé tous les sauts de section

[Foulq.chr]

Un grand , trés grand merci!!! ça fait trois semaine que je bosse sur mes macros sans avoir codé depuis ma sortie d'école il y a plus de 12ans... j'étais déjà content d'avoir fait presque tout ce que je voulais arriver à faire, mais là, je n'aurai jamais trouvé comment surmonter cet obstacle!!!
Merci encore!!