Function FindLabel ( [NAME] ) Dim lLen lLen=StrLen( [NAME] )/2 Dim i Dim sStr sStr="" i=0 Do While i<lLen * 2 sStr=sStr & "　" i=i+1 Loop FindLabel = [NAME] & "<SUP>" & "上面" & vbcrlf & sStr & "下面" & "</SUP>"End Functionfunction strlen(str)dim p_lenp_len=0strlen=0p_len=len(str)for xx=1 to p_lenif asc(mid(str,xx,1))<0 thenstrlen=int(strlen) + 2elsestrlen=int(strlen) + 1end ifnextend function