Acronym and definiton list generator

macropod · #1 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.

jabanks · #2 10-30-2022, 08:15 AM

Thank you for taking the time to reply.
I thought I had tried that combination but with no joy, it works though!
The reason why I wanted to limit the string length is that the Find would find items in brackets that were not acronyms e.g. (Document 12345678). This has now resolved the issue.

Again, many thanks.

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