Abbreviations Validation

mrsandes · #1 04-09-2020, 04:04 AM

Thanks Paul.
I made these changes and added one more search possibility, as we may have a few characters between the capital letters in the acronmys, to do so I duplicated the code. Would you say there is a better way to do that?

I'm having the trouble of duplicates being listed in the table if they appear more than once in the text between parenthesis as well, would you know how to clear duplicates in word tables?

Thank you for your support so far and in advance if you take the time to support on these questions.

macropod · #2 04-09-2020, 05:35 AM

Quote:

Originally Posted by mrsandes

I made these changes and added one more search possibility, as we may have a few characters between the capital letters in the acronmys, to do so I duplicated the code. Would you say there is a better way to do that?

Probably, but since you haven't said what those characters are, it's impossible to say how the expression should be changed. That said, I certainly wouldn't use the expression you've used.

Quote:

Originally Posted by mrsandes

I'm having the trouble of duplicates being listed in the table if they appear more than once in the text between parenthesis as well, would you know how to clear duplicates in word tables?

The appropriate way is to fix the document - you shouldn't have the same acronym in parentheses in multiple locations.

mrsandes · #3 04-09-2020, 06:37 AM

Thanks for the quick reply, Paul.

Quote:

Originally Posted by macropod

Probably, but since you haven't said what those characters are, it's impossible to say how the expression should be changed. That said, I certainly wouldn't use the expression you've used.

The idea is to be able to use more than one find criteria. As we may have acronyms/abbreviations with 2 or more uppercase letters, as you had in your code, but there is also the possibility of having a lower case letter or a symbol in between uppercase letters.

I tried achieving that with the search:

Code:

.Text = "\(<([A-Z]{1,})?([A-Z]{1,})>\)"

but it wouldn't find uppercase letters only acronyms. From what I researched, using {0,} for the ? wouldn't work.

Quote:

Originally Posted by macropod

Try:

Code:

      .Sort ExcludeHeader:=True, FieldNumber:="Column 1", CaseSensitive:=False, _
        SortFieldType:=wdSortFieldAlphanumeric, SortOrder:=wdSortOrderAscending

That worked! Thanks a lot.

macropod · #4 04-09-2020, 06:49 PM

Quote:

Originally Posted by mrsandes

The idea is to be able to use more than one find criteria. As we may have acronyms/abbreviations with 2 or more uppercase letters, as you had in your code, but there is also the possibility of having a lower case letter or a symbol in between uppercase letters.

In that case, try:
.Text = "\([A-Z0-9][!\) ]@[A-Z0-9]\)"

mrsandes · #5 04-14-2020, 04:32 AM

Quote:

Originally Posted by macropod

In that case, try:
.Text = "\([A-Z0-9][!\) ]@[A-Z0-9]\)"

Thanks, Paul. The only problem with that is that it doesn't find the acronyms with 2 uppercase letters only.

Even though it is not the best approach, the double verification is working, so I will stick to that.

Thank you for your support!

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Creating a list of Acronyms / Abbreviations	daithy	Word	4	03-12-2020 01:52 PM
Data Validation in Microsoft Word Template	BradleyCase	Word VBA	1	07-16-2019 12:37 PM
Adding Professional Credential Abbreviations to Name	dyny723	Outlook	0	03-16-2018 07:14 AM
Automate Job application word doc to Excel (with data validation)	dylansmith	Office	1	02-11-2018 12:58 PM
validation email address in word text filed	sameerahmad_P	Word VBA	1	03-07-2014 02:59 PM