Discussion :

[Francine222]

Bonjour,

J'ai un document qui contient plusieurs sections et dont l'orientation de papier différente. Comment fait-on pour changer le format de papier dans toutes les sections sans en changer l'orientation.

Merci.

Francine

[Sepia]

Salut Francine222,

De base tu parcours tes sections, tu lis l'orientation, tu changes ton format en remettant ton orientation précédente (je ne suis même pas sûr que ce soit nécessaire) et tu enregistres.

@+

[Francine222]

Cela doit se faire en une seule opération à partir d'un userform.

[Heureux-oli]

Salut,

Après quelques essais.
Si on change la taille du papier pour tout le document, on perd l'orientation de la feuille.
Que ce changement ait lieu en VBA ou via l'interface.

Donc, en VBA le principe est de récupérer l'orientation, modifier la taille du papier et remettre l'orientation.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Sub orientationPage()
Dim ss As Section
Dim btO As Byte
 
 
For Each ss In ActiveDocument.Sections
    btO = ss.PageSetup.Orientation
 
    ss.PageSetup.PaperSize = wdPaperA5
    ss.PageSetup.Orientation = btO
 
Next ss
End Sub

La taille du papier correspond à une constante
wdPaperA3, wdPaperA4, ...
Si la taille du papier n'est pas supportée par l'imprimante une erreur est générée.

[Francine222]

Salut!

Ok, si je comprend bien, cette méthode est bonne pour le PaperSize spécifié. Est-ce possible de programmer selon tous les PaperSize possible, que si Lettre changer pour A4, si tabloid changer pour A3, tout en récupérant l'orientation.

Merci.

[Heureux-oli]

Salut,


Tu choisis la taille que tu veux !

[Francine222]

Je sais, j'aurais aimé que cela se fasse automatiquement en un seul click pour toutes les sections. Que VBA fasse une recherche, ex.: toutes les sections dont le papersize est Lettre le changer pour du A4 en conservant l'orientation, aussi pour toutes les sections dont le papersize est tabloid le changer pour du A3 en conservant l'orientation. N'y a-t-il pas une façon d'utiliser le If...Then?

[Heureux-oli]

Salut,

Je sais, j'aurais aimé que cela se fasse automatiquement en un seul click pour toutes les sections. Que VBA fasse une recherche, ex.: toutes les sections dont le papersize est Lettre le changer pour du A4 en conservant l'orientation, aussi pour toutes les sections dont le papersize est tabloid le changer pour du A3 en conservant l'orientation. N'y a-t-il pas une façon d'utiliser le If...Then?

Tu n'avait point dit que tu voulais un test !