Bonjour à tous,

J'ai fait une macro Word qui permet de concaténer plusieurs documents Word dans 1 seul.

Chaque document de départ tient sur une page.

Malheureusement dans le document final, certains documents sources sont séparés sur 2 pages.

Quand je modife la taille des marges dans le document final (il faut que j'aille dans mise-en-page et que je choisisse "appliquer à tout le document"), tout se remet en place, il n'y a plus de sauts de pages intempestifs.

Donc je voudrai définir ces settings par du code VBA mais rien n'y fait, cela ne marche que manuellement : je n'arrive pas à voir comment on code l'option "appliquer à tout le document".

voici le code :

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
26
With docCompendiumFinal.Content.PageSetup
    .LineNumbering.Active = False
    .Orientation = wdOrientPortrait
    .TopMargin = CentimetersToPoints(1)
    .BottomMargin = CentimetersToPoints(0.5)
    .LeftMargin = CentimetersToPoints(2)
    .RightMargin = CentimetersToPoints(2)
    .Gutter = CentimetersToPoints(0)
    .HeaderDistance = CentimetersToPoints(0.9)
    .FooterDistance = CentimetersToPoints(0)
    .PageWidth = CentimetersToPoints(21.59)
    .PageHeight = CentimetersToPoints(27.94)
    .FirstPageTray = wdPrinterDefaultBin
    .OtherPagesTray = wdPrinterDefaultBin
    .OddAndEvenPagesHeaderFooter = False
    .DifferentFirstPageHeaderFooter = True
    .VerticalAlignment = wdAlignVerticalTop
    .SuppressEndnotes = False
    .MirrorMargins = False
    .TwoPagesOnOne = False
    .BookFoldPrinting = False
    .BookFoldRevPrinting = False
    .BookFoldPrintingSheets = 1
    .GutterPos = wdGutterPosLeft
    .LayoutMode = wdLayoutModeDefault
End With
Auriez-vous une idée ?

Merci beaucoup d'avance.

Laurent.