Acronym and definiton list generator

macropod · #18 10-30-2022, 05:31 AM

You could, for example, change:

Code:

.Text = "\([A-Z0-9][A-Z&0-9]{1" & Application.International(wdListSeparator) & "}\)"

to:

Code:

.Text = "\([A-Z0-9][A-Z&0-9]{1" & Application.International(wdListSeparator) & "9}\)"

This will limit the find string to a maximum of 9 characters. Such a limitation seems fairly meaningless, however, as few words would be longer than that and, if you have many parenthetic uppercase single words, those will all be included in the output.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Adding List Number to Acronym Table	SerenityNetworks	Word VBA	6	12-13-2016 01:36 PM
Random Name Generator	knp11	Word	1	01-18-2015 11:41 AM
Need guidance on creating a Word doc generator	mikeman	Word VBA	1	10-26-2014 10:35 PM
Acronym Finder	Cray_Z	Word VBA	14	09-22-2014 11:42 PM
Document Generator	HJJ	Word	0	08-12-2009 03:28 AM