Adjust Acronym Script to include Dashes?

0rion · #1 01-14-2019, 11:38 AM

The first part was just to say that most 'acronym-making' scripts I found don't work with hyphenated words. The script I showed does. I'd just like to include the hyphens in the end result.

Actually, this code of yours works well:

Code:

Function abbrev(aString$) As String
  Dim a, b, i As Integer
  a = Split(aString, "-")
  b = a
  For i = 0 To UBound(a)
    b(i) = Acronym(CStr(a(i)))
  Next i
  abbrev = Join(b, "-")
End Function

although I notice that if there is a space after the hyphen it will show up in the acronym. Can that be fixed?

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Acronym Finder Macro for Microsoft Word	mars1886	Word VBA	15	03-30-2022 06:56 AM
Adding List Number to Acronym Table	SerenityNetworks	Word VBA	6	12-13-2016 01:36 PM
Acronym Macro to include surrounding text	SerenityNetworks	Word VBA	3	03-11-2016 05:43 PM
Acronym Finder	Cray_Z	Word VBA	14	09-22-2014 11:42 PM
Auto correct for Acronym	mam9	Word	3	11-19-2012 01:35 AM