Discussion :

[laurent_diep]

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.

[Sepia]

Salut Laurent,

As-tu essayer de sélectionner ton document, pour lui appliquer ta mise en forme ? Pour cela, remplace

Code :

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

1
2
 
With docCompendiumFinal.Content.PageSetup

par

Code :

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

1
2
3
 
Selection.WholeStory
With Selection.Content.PageSetup

@+

[laurent_diep]

Sepia,

Merci pour ta réponse.

J'ai essayé ce que tu as dit mais malheureusement, c'est pareil.

Laurent.

[Sepia]

Salut Laurent,


je viens de réessayer avec mon mac (car parfois le code généré n'est pas identique à celui du PC) et c'est le cas. L'enregistreur de macros sur Mac me donne

Code :

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

With ActiveDocument.PageSetup

et non

Code :

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

With ActiveDocument.Content.PageSetup

ce qui donnerait pour ton cas

Code :

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

With docCompendiumFinal.PageSetup

Il faudrait essayer

@+

[laurent_diep]

Sepia,

J'ai essayé ce que tu m'as dit mais c'est pareil.

Laurent.

[Sepia]

Salut Laurent,

J'ai refait des tests et ça marche sans problème sur mon PC (Word 2003) aussi ==> ???

Désolé

@+