'字数输出省略号控制开始
Function Strleft(Str002,L001) 
Temp_Str=Len(Str002) 
For I002=1 To Temp_Str 
Test_Str=(Mid(Str002,I002,1)) 
Strleft=Strleft&Test_Str
If Asc(Test_Str)>0 Then 
lens001=lens001+1
Else 
lens001=lens001+2
End If
    If lens001>L001 Then
    Strleft=Strleft&"..."
    Exit For 
    End if
Next 
'Strleft=Strleft&"..."
End Function 

'字数输出省略号控制结束