Function str(str0 As String, m As Long) As String
'功能:字符串定长换行
'参数:str0---字符串;m---单行字符数
'示例:me.备注.value=str(me.备注.value)
Dim i As Long
Dim n As Long
Dim s As String
n = Int(Len(str0) / m)
s = ""
For i = 0 To n - 1
s = s & Mid(str0, i * m + 1, m) & Chr(13) & Chr(10)
Next
If Len(str0) > Len(Mid(str0, 1, n * m)) Then
s = s & Mid(str0, n * m + 1)
Else
s = Left(s, Len(s) - 2)
End If
str = s
End Function
Function str1(str0 As String) As String
'功能:字符串取消换行
'参数:str0---字符串;m---单行字符数
'示例:me.备注.value=str1(me.备注.value)
str1 = Replace(Replace(str0, Chr(13), ""), Chr(10), "")
End Function