Discussion :

[EnProjet]

Bonjour,

J'arrive à copier une section mais là où je bute c'est que le nouveau document ne reprend pas complètement la mise en page de la section
je m'explique : dans la section originelle, j'ai une "Première page différente", les "Pages paires et impaires différentes"

Dans le document résultant, les "Pages paires et impaires différentes" disparaissent... et si je supprime le "saut de section (page suivante)", là même le formatage "Première page différente" disparaît

Voici "mon" code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub CopieSection()
    'Selection et copie de la section désirée
    Selection.GoTo What:=wdGoToSection, Which:=wdGoToFirst, Count:=6, Name:=""
    Selection.MoveEnd wdSection, 1
    Selection.Copy
    'Collage dans un nouveau document
    Documents.Add Template:="Normal", NewTemplate:=False, DocumentType:=0
    Selection.PasteAndFormat (wdFormatOriginalFormatting)
    'Suppression du dernier saut de page
    Selection.MoveUp Unit:=wdLine, Count:=2, Extend:=wdExtend
    Selection.Delete Unit:=wdCharacter, Count:=1
 
End Sub

Une idée ? (j'imagine qu'il doit y avoir un code pour solutionner ce souci...)

[Heureux-oli]

Salut,

C'est là que réside la complexité ou simplicité, c'est comme on veut des objet.

Une section est un objet.
Dans ton cas, tu ne prends qu'un petit morceau de l'objet : le texte.
Or, il y a plein d'autres choses.
Par ex : PageSetup, Headers, Footers, .....
C'est à toi de voir ce que tu veux prendre.

Ton code ressemble à du code enregistré et modifié.
Mais tu vas devoir l'écrire.

Tu peux toujours explorer la piste d'un objet section