Sub GridType() With ActiveDocument.Grid .Visible = True .Type = cdrGridDot .SetFrequency 5, 5 End WithEnd Sub