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'hui100
Hier2143
Cette semaine12389
Total depuis 20049946340

5
visiteurs actuellement en ligne