我把
Err_Command0_Click:
If Err.Number = 5 Then
b = EncodeString(k)
x = Replace(b, Chr(10) & "", Chr(13) & Chr(10))
Resume Next
else
msgbox err.number
resume next
End If
b = EncodeString(k)
换成b=ClearKatakana(k)
运行错误“6 ”,溢出
这一句: For i = 1 To Len(Expression)