直接写,长度超过4自动换行,[name]是字段。
Function FindLabel ( [NAME] )
n=len([NAME])
if (n<5) then
FindLabel = [NAME]
else
FindLabel = left([NAME],4) & vbnewline & right([NAME],n-4)
end if
End 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 if
End Function
Function FindLabel([NAME])
FindLabel= myFind([NAME],4)
End Function