user_mobilelogo

Pour tout connaître sur Word
Nouvelle version !

600 pages !

9,80 € 

En savoir plus.

 

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

Aujourd'hui95
Hier1877
Cette semaine1972
Ce mois44474
Total depuis 200413203093

4
visiteurs actuellement en ligne

27 juillet 2021