转换文本按一定字数折叠

用户注册

投稿取消

文章分类:

还能输入300字

上传中....

热门文章更多>>

标签更多>>

word左右居中纵向分布 word左右居中对齐 word左右居中对齐怎么设置 word标题回车后为正文 word标题回车后直接分页 word标题回车后中间空了好大一段 word里面行距怎么调整无法缩小 word里面行距一直很大 word里面行距怎么设置在哪里 word试卷格式文档怎么打印 word试卷格式排版 word中隐藏文字打印 word中隐藏文字快捷键 word中隐藏文字在哪里

专题更多>>

最新文章更多>>

放浪不羁27752601

转换文本按一定字数折叠

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