代码如下:‘************************************ ‘截取文字长度函数,支持UTF-8 ‘输入参数: ‘ 1、文字内容 ‘ 2、文字最大长度 ‘************************************ Public Function Cut_Title(Title,TLen) Dim k,i,d,c Dim iStr Dim ForTotal If CDbl(TLen) > 0 Then k=0 d=StrLen(Title) iStr=”” ForTotal = Len(Title) For i=1 To ForTotal c=Abs(Asc