Sub ToolsLayout()
     With ActiveDocument
    
        .Compatibility(wdSuppressBottomSpacing) = False
        .Compatibility(wdExpandShiftReturn) = False
        .Compatibility(wdSuppressTopSpacing) = False
        .Compatibility(wdNoSpaceForUL) = False
        .Compatibility(wdSuppressSpBfAfterPgBrk) = False
        
    End With
End Sub