Rechercher/remplacer saut de page

[eugiba]

Bonjour,
voilà j'aimerais remplacer les sauts de sections de mon document par des sauts de page.

J'ai essayé ça :

Code :

1
2
3
4
5
6
7
For Each myRange In ActiveDocument.StoryRanges
     With myRange.Find
         .Text = "^b"
         .Replacement.Text = "^m"
     End With
     myRange.Find.Execute Replace:=wdReplaceAll
Next myRange

Mais une erreur (Argument non facultatif) survient sur le .Find

Avez vous une idée ?
Merci

[Heureux-oli]

Salut,

As-tu essayé de passer par l'enregistreur de macro ?

[eugiba]

Oui l'enregistreur me donne ça :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "^b"
        .Replacement.Text = "^m"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

On me donne une erreur sur la première ligne :
''Nombre d'arguments incorrects ou affection à une propriété incorrecte''

En réalité j'effectue du publipostage puis je fusionne les documents créés.
La meilleure solution serait de faire un publipostage avec des sauts de page(manuel) à la place des sauts de section.

[Heureux-oli]

Salut,

Pourrais-tu nous expliquer un peu plus ?
Peut-être existe-t-il une autre solution.

[eugiba]

Voilà je dois générer un document de test "général" pour cela j'ai créé des documents "type" pour chaque test à effectuer (Test Vanne, Test Moteur...).

Pour chaque document je fais mon publipostage, puis je rassemble tout les documents de test dans le document général.

Le problème lorsque je fais le publipostage, un saut de section s'effectue à chaque nouvel élément.
Exemple : Un saut de section entre la vanne1 et la vanne2

Et donc la numérotation des sous-titre recommence tout le temps à 1.1.1 (ce que le saut de page fait pas !)

Donc les solutions serait soit
1.- De générer le publipostage avec des sauts de page
2.- Remplacer par la suite les sauts de section -> en sauts de page

J'espère avoir été clair.
Merci

[Heureux-oli]

Salut,

Peut-être une piste ?

Code :

1
2
3
4
5
6
7
8
9
 
Sub NumerotationPage()
Dim mys As Section
 
For Each mys In ActiveDocument.Sections
mys.Footers(wdHeaderFooterPrimary).PageNumbers.RestartNumberingAtSection = False
Next mys
 
End Sub

Changer le format de numérotation pour chaque section.

[eugiba]

Salut,
merci de ta réponse. La numérotation des pages fonctionne grâce à toi maintenant, mais la numérotation des titres n'est toujours pas bonne.

J'ai essayé d'adapter ton code pour cibler la numérotation des titres mais je ne suis pas arrivé.

Je cherche, je cherche.

[Heureux-oli]

Salut,

Peut-être comme ça ?

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Sub NumerotationTitre()
Dim oPar As Paragraph
 
For Each oPar In ActiveDocument.Paragraphs
If Left(oPar.Style, 5) = "Headi" Then
oPar.Range.Select
 
Selection.Range.ListFormat.ApplyListTemplate ListTemplate:=ListGalleries( _
        wdOutlineNumberGallery).ListTemplates(2), ContinuePreviousList:=True, _
        ApplyTo:=wdListApplyToWholeList, DefaultListBehavior:= _
        wdWord10ListBehavior
End If
Next oPar
 
 
 
End Sub

[eugiba]

Salut,

non aucun changement. Mais je ne comprends pas cette ligne, a quoi elle sert ? :

Code :

If Left(oPar.Style, 5) = "Headi" Then

[Heureux-oli]

Salut,

Récupérer tous les styles dont le nom commence par Headi, comme Heading 1, Heading 2, Heading 3 qui sont normalement les titres d'un document, sauf si le style utilisé pour la numérotation est différent.
Dans ce cas, il faut changer le critère de recherche.

[eugiba]

Une solution serait d'aller en fin de chaque page du document et de suprimer le saut de section et ensuite de faire un saut de page.
Je n'arrive pas a faire la programmation mais ce serait genre :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub SautPage
Dim wPage as Page
 
For Each Page In ActiveDocument
    With appWord.Selection
    .HomeKey Unit:=wdStory
    .EndKey Unit:=wdEndOfSection '------->Marche pas, je sais pas quoi mettre
    .Delete Unit:=wdCharacter, Count:=1
'ou 
    .TypeBackspace
    .InsertBreak Type:=wdPageBreak
    End With
Next wPage
 
End Sub

Voilà un truc de ce style ! C'est faisable ?

[eugiba]

En réalité comme je veux supprimer les sauts de section, ce serait pour chaque section au lieu de chaque page !

[eugiba]

Voilà finalement j'ai réussi à faire un rechercher/remplacer des sauts de section en sauts de page comme ceci :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
With appWord.Selection.Find
        .Text = "^b"
        .Replacement.Text = "^m"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    appWord.Selection.Find.Execute Replace:=wdReplaceAll
    appWord.ActiveWindow.ActivePane.VerticalPercentScrolled = 0

Mais un nouveau problème survient ensuite : les textes des champs se trouvant dans l'en-têtes et le pied de page ont sauté. Et les champs ont repris leur "statut".
Exemple : Avant le rechercher/remplacer j'avais le texte "Usine130" puis
il redevient «Projet» (mais en format texte).

Merci pour votre aide