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é

@+

[laurent_diep]

Sepia,

Je t'envoie ma macro et les 2 fichiers source de données.

J'espère que tu auras le temps d'y jeter un coup d'oeil.

Il faut juste que tu changes le chemin des fichiers de données et le chemin du fichier résultat.

Il faut lancer la macro à partir de l'éditeur VBA car le bouton ne marche pas.

Comme tu remarqueras, les 2 fichiers source tiennent sur 1 page chacun et le fichier final tient sur 4 pages.

Merci beaucoup d'avance.

Laurent.

[Sepia]

Salut Laurent,

Je n'ai pas pu tester sur mon PC et sur le Mac, la macro ne fonctionne pas car il me manque les bibliothèques standards pour manipuler le fso).

En revanche, en regardant j'ai vu que les marges n'étaient pas identiques entre ton document compendium, les valeurs dans ta macro et les valeurs des pages source. Est-ce vraiment ce que tu voulais ? Si c'est le cas, en changeant les attributs de page, tu peux modifier la pagination ==> peut-être ton problème.

De toute façon, je refais le test sur PC dès demain.

@+

[laurent_diep]

Salut Sepia,

Mon but, c'est d'avoir les mêmes marges que dans les documents sources, c'est pourquoi dans le code j'ai mis les configurations PageSetup... mais cà ne marche pas...

Merci pour les tests !

Laurent.