With ActiveDocument .GridDistanceHorizontal = 9 .GridDistanceVertical = 9 .SnapToGrid = True End With