If Selection.Type = wpsSelectionNormal Then Selection.CreateTextbox Selection.ShapeRange.Line.DashStyle = KsoLineDashDotEnd If