分享至
直接写，长度超过4自动换行，[name]是字段。
Function FindLabel ( [NAME] )n=len([NAME])if (n<5) thenFindLabel = [NAME]elseFindLabel = left([NAME],4) & vbnewline & right([NAME],n-4)end ifEnd Function写成函数
Function myFind(NAME,wd)n=len(NAME)if (nmyFind = NAMEelsemyFind = left(NAME,wd) & vbnewline & right(NAME,n-wd)end ifEnd Function
Function FindLabel([NAME])FindLabel= myFind([NAME],4)End Function字段是name，4，可以修改5等。
效果如下：
文章授权转载：gisoracle
版权归原作者所有
13个 最适合测绘人的证书
注册测绘师继续教育20学时
中国测绘网新媒体中心
cehui8@qq.com
特别声明：以上内容(如有图片或视频亦包括在内)为自媒体平台“网易号”用户上传并发布，本平台仅提供信息存储服务。
Notice: The content above (including the pictures and videos if any) is uploaded and posted by a user of NetEase Hao, which is a social media platform and only provides information storage services.
