With ActiveDocument .GridOriginHorizontal = 80 .GridOriginVertical = 90 .GridDistanceHorizontal = 9 .GridDistanceVertical = 9 .SnapToGrid = True End With