With Selection.DropCap .Position = wpsDropNormal .LinesToDrop = 3 .DistanceFromText = InchesToPoints(0.1)End With