Aqui está meu macro lifehack que faz uso das linhas de grade para exibir os limites de texto no estilo anterior a 2013. A macro liga / desliga os limites.
Os limites produzidos são um pouco melhorados: eles se estendem na largura e altura da página inteira, cruzando nos cantos. Se você gosta de limites que parecem um retângulo, como se estivesse no Office antes de 2013, remova "no início desta linha:
' ActiveDocument.GridOriginFromMargin = True
Downside : haverá os mesmos limites para todo o documento, portanto, se você tiver várias seções com margens de tamanho diferentes, seus limites serão semelhantes aos da seção atual no momento em que você executa a macro.
A 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