Voici ma macro lifehack qui utilise les lignes de la grille pour afficher les limites du texte dans le style pré-2013. La macro active/désactive les limites.
Les limites produites sont un peu améliorées : elles s'étendent sur toute la largeur et la hauteur de la page, se croisant dans les coins. Si vous souhaitez que les limites ressemblent à un rectangle, comme c'était le cas dans Office avant 2013, supprimez ' au début de cette ligne :
' ActiveDocument.GridOriginFromMargin = True
Baisse de régime : Il y aura les mêmes limites pour l'ensemble du document, donc si vous avez plusieurs sections avec des marges de taille différente, leurs limites seront comme celles de la section qui est げんざい au moment où vous exécutez la macro.
Le macro :
Sub view_page_boundaries()
' provide page boundaries using a customised page grid
With Selection
ActiveDocument.GridOriginFromMargin = False
' uncomment to have page boundaries like standard for pre-2013
' ActiveDocument.GridOriginFromMargin = True
If ActiveDocument.GridOriginFromMargin = False Then
' display crossing boundaries at full width and height
ActiveDocument.GridDistanceHorizontal = .PageSetup.PageWidth - .PageSetup.LeftMargin - .PageSetup.Gutter - .PageSetup.RightMargin
ActiveDocument.GridDistanceVertical = .PageSetup.PageHeight - .PageSetup.TopMargin - .PageSetup.BottomMargin
Else
' display boundaries like those in pre-2013
' 0.05 is half-millimeter to prevent cutting off the right and bottom boundaries by the margins
ActiveDocument.GridDistanceHorizontal = CentimetersToPoints(Round(PointsToCentimeters( _
.PageSetup.PageWidth - .PageSetup.LeftMargin - .PageSetup.Gutter - .PageSetup.RightMargin), 1) - 0.05)
ActiveDocument.GridDistanceVertical = CentimetersToPoints(Round(PointsToCentimeters( _
.PageSetup.PageHeight - .PageSetup.TopMargin - .PageSetup.BottomMargin), 1) - 0.05)
ActiveDocument.GridOriginHorizontal = .PageSetup.LeftMargin + .PageSetup.Gutter
ActiveDocument.GridOriginVertical = .PageSetup.TopMargin
End If
If Options.DisplayGridLines = False Then
Options.DisplayGridLines = True
' do not need cropmarks at all with crossing boundaries
ActiveWindow.View.ShowCropMarks = False
ActiveDocument.GridSpaceBetweenHorizontalLines = 1
ActiveDocument.GridSpaceBetweenVerticalLines = 1
Else
ActiveDocument.GridOriginFromMargin = True
' display cropmarks when there are no boundaries
ActiveWindow.View.ShowCropMarks = True
ActiveDocument.GridSpaceBetweenHorizontalLines = 2
ActiveDocument.GridSpaceBetweenVerticalLines = 2
ActiveDocument.GridDistanceHorizontal = CentimetersToPoints(0.18)
ActiveDocument.GridDistanceVertical = CentimetersToPoints(0.32)
End If
End With
End Sub