直接写，长度超过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 (n<wd+1) thenmyFind = NAMEelsemyFind = left(NAME,wd) & vbnewline & right(NAME,n-wd)end ifEnd FunctionFunction FindLabel([NAME])FindLabel= myFind([NAME],4)End Function
字段是name，4，可以修改5等。
效果如下：
对话框发送对应【关键词】获取 精选内容
行业甄选
测绘行业综合服务平台
其 他
