ArcGIS 标注超过一定宽度自动换行

Function FindLabel ( [NAME] )  n=len([NAME])  if (n<5) then     FindLabel = [NAME]  else      FindLabel = left([NAME],4) & vbnewline & right([NAME],n-4)  end ifEnd Function

Function myFind(NAME,wd)  n=len(NAME)  if (n<wd+1) then     myFind = NAME  else      myFind = left(NAME,wd) & vbnewline & right(NAME,n-wd)  end ifEnd Function
Function FindLabel([NAME])    FindLabel= myFind([NAME],4)
End Function