--------------
rfairhur24,
Thanks so much for your earlier help. This script has been working great! Just curious if there's a way to update it so it stacks my lllabels after the first word. For instance, if the company name is "Pacific Beverage Company", the script would still replace "Company" with "Co.", but stack the label where Beverage Company comes as a single line under Pacific.
Thanks for your help,
tiamo
Try this:Function FindLabel([dist_name])
Dim name
If IsNull([dist_name]) Then
name = ""
Else
' Add as many replace expressions as you need.
' The first string in the pair must match your input exactly to be replaced.
' The order of replace statements matters.
' Words that can be part of other replaced words must come last.
name = [dist_name]
name = Replace(name, " ", vbNewLine, 1, 1)
name = Replace(name, "Limited Liability Company", "LLC")
name = Replace(name, "Company", "Co")
name = Replace(name, "Beverage", "Bev")
name = Replace(name, "Distributed", "Dist")
End if
FindLabel = name
End Function