Bienvenue 

sur les faqs Word & PowerPoint

Une question ? Cliquez ici.

 Un exemple à télécharger ? Cliquez ici.

 

Word 365 : Vous saurez tout !

Auteur sur XinXii

Pour tout connaître sur Word

8,90 €

 

 

Il faudrait qu'à la fin du doc, l'utilisateur lance la macro. Elle pourrait ressembler à ça :

 

Sub Changemarges()
Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext,Name:="2"
ActiveDocument.Range(Start:=Selection.Start,End:=Selection.Start). InsertBreak Type:=wdSectionBreakNextPage
Selection.Start = Selection.Start + 1
With ActiveDocument.Range(Start:=Selection.Start, _
End:=ActiveDocument.Content.End).PageSetup
.TopMargin = CentimetersToPoints(3)
.BottomMargin = CentimetersToPoints(3)
.LeftMargin = CentimetersToPoints(4)
.RightMargin = CentimetersToPoints(4)
End With
End Sub

Statistiques

Aujourd'hui34
Hier1471
Cette semaine34
Ce mois40279
Total depuis 200410830813

7
visiteurs actuellement en ligne