Passer au contenu

Comment changer rapidement l’orientation du document ?

Solution : en créant deux macros en VBA.

Quel que soit le traitement de texte utilisé, vous avez le choix entre les modes Portrait et Paysage pour la mise en page de chacune des sections d’un document. C’est évidemment le cas avec Word 97. Cependant cette option est loin d’être à portée de souris puisqu’il faut dérouler le menu Fichier, sélectionner la commande Mise en page puis enfin choisir l’onglet Taille avant d’y accéder.Pour gagner du temps, créez deux macros que vous associerez chacune à un bouton d’une des barres d’outils. Ainsi, vous pourrez basculer entre les deux modes d’impression d’un simple clic de souris. Tout d’abord, appuyez sur +. Dans le champ Nom de la macro, saisissez Portrait et cliquez sur [créer]. Dans la fenêtre d’édition des macros, saisissez le texte du listing ci-après. Enregistrez les modifications puis retournez sous Word. Ensuite, pour insérer un bouton pointant vers la macro Portrait dans la barre d’outils, faites un clic droit sur la barre d’outils puis choisissez Personnaliser dans le menu contextuel. Dans l’onglet Commandes, sélectionnez Macros dans la fenêtre Catégories et cliquez sur votre macro dans la fenêtre Commandes. Ensuite, à l’aide d’un glisser-déposer, insérez votre macro dans la barre d’outils. Pour finir cette première étape, validez la manipulation en cliquant sur [fermer]. Pour le mode Paysage, créez une autre macro que vous appellerez Paysage. Cette macro est la même que celle que vous venez de créer, à cette différence que vous inverserez les valeurs de PageWidth et PageHeight dans le listing.Listing :
Sub Portrait()
With ActiveDocument.PageSetup
.Orientation = wdOrientLandscape
.TopMargin = CentimetersToPoints(2.5)
.BottomMargin = CentimetersToPoints(2.5)
.LeftMargin = CentimetersToPoints(2.5)
.RightMargin = CentimetersToPoints(2.5)
.Gutter = CentimetersToPoints(0)
.HeaderDistance = CentimetersToPoints(1.25)
.FooterDistance = CentimetersToPoints(1.25)
.PageWidth = CentimetersToPoints(21)
.PageHeight = CentimetersToPoints(29.7)
.FirstPageTray = wdPrinterDefaultBin
.OtherPagesTray = wdPrinterDefaultBin
.SectionStart = wdSectionNewPage
.OddAndEvenPagesHeaderFooter = False
.DifferentFirstPageHeaderFooter = False
.VerticalAlignment = wdAlignVerticalTop
.SuppressEndnotes = False
.MirrorMargins = False
.TwoPagesOnOne = False
.GutterPos = wdGutterPosLeft
End With
End Sub

🔴 Pour ne manquer aucune actualité de 01net, suivez-nous sur Google Actualités et WhatsApp.


Filigrane Press