You might try changing:
to:
though I doubt that would make much difference.

Beyond that, I think we'd need to see an extract from the document demonstrating the issue. You can, of course, obfuscate any other content you wish to keep private.

__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]

Hi.
New to the forum and new to VBA coding.
I had created a macro to produce acronyms and their definition but was very code heavy and not as efficient as this code.
I have tried to limit the acronym length e.g. find acronyms 1-9 letters but I can't seem to do that with the wdlistseperator.
Any advice greatly appreciated.

You could, for example, change:
to:
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.

__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]

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.

I can't see how that is possible, since the Find expression in the code I posted excludes strings with spaces in them. Moreover, the alpha part of any such string must be all upper-case. Your (Document 12345678) example violates both criteria.

__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]

Yes, I have not used your macro explicitly, it has been modified as the field I work in does have spaces between the Acronym itself (within the brackets); my previous version did not use the operator and I simply had the number to find and a total length {1, 9}. It works fine now with the limited testing I have done today. Again, thanks for the swift and accurate response.

This macro is EXCELLENT!
I do have one question though, in my document a lot of acronyms are just dropped in with no definition and they are not in parenthesis, so they aren't getting picked up by the macro.

Any way to adjust so it grabs these? I tried looking into wildcards and the code, but this is beyond my expertise. Thanks!

I created a simple WORD doc to test this before i use it on my large doc, but i am getting a an error
Compile error: Sub of Function not defined and points to "ParseNumSeq""

In my case, the content will be introduced followed by the Acronym.
Japanese American Goodwill Association (JAGA).

Attached Files

The Japanese American Goodwill Association.docm (20.4 KB, 1 views)

You are getting the error because you haven't copied all the code. You need both lots of code from post 2

Guess my elevator wasn't going all the way to the top.. Thank you!