本示例为活动文档选择段设置首字下沉。

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