Sub Test() ActiveDocument.Rulers.HUnits = cdrInch ActiveDocument.Rulers.VUnits = cdrMillimeterEnd Sub