Private Function wrapword(str As String, CharsInOneLine As Integer, fixedLines As Integer) As String Dim c As Integer, i As Integer c = (Len(str) - (Len(str) Mod CharsInOneLine)) / CharsInOneLine For i = 0 To c wordwrap = wordwrap & IIf(i = c, Mid(str, i * CharsInOneLine + 1), Mid(str, i * CharsInOneLine + 1, CharsInOneLine)) & vbcrlf Next i If fixedLines > c Then For i = 0 To fixedLines - c - 3 wordwrap = wordwrap & vbcrlf Next i End If End Function
用户登录
还没有账号?立即注册
用户注册
投稿取消
文章分类: |
|
还能输入300字
上传中....