Recherche

 

Il faudrait qu'à la fin du document, 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

France 75,6% France
Canada 8,1% Canada
États-Unis d'Amérique 4,8% États-Unis d'Amérique

Total:

64

Pays
018273547
Aujourd'hui: 2
Hier: 93
Cette semaine: 653
Semaine dernière: 1.156
Ce mois: 1.809