Function namecut(str, n) strs = Split(str, " ") For i = 0 To UBound(strs) If i = n - 1 Then Else result = result & " " & strs(i) End If Next i namecut = Trim(result) End Function Function lencut(str, n, num) pname = namecut(str, n) For i = 1 To 10 If LenB(pname) Exit For Else ..
