Abbreviations Validation

mrsandes · #1 04-16-2020, 05:43 AM

Quote:

Originally Posted by macropod

You might try:

.Text = "\([A-Z0-9]*[A-Z0-9]\)"
but, depending on what else you have in parentheses, that may give some false matches.

Yes, it increased significantly the amount of false matches.

Paul, if I were to find also abbreviations that are not enclosed by parenthesis, what else would I have to delete on the code?

I just removed the "\(" and "\)" on the search mechanism, but it gives me an error "Subscript out of range" and highlights the line:

Code:

StrAcronyms = StrAcronyms & Split(StrTmp, "|")(1) & vbTab & Split(StrTmp, "|")(0) & vbCr

Another thing that I noticed is that the AcronymManager macro will not replace the text in the document for the acronym if the text is not capitalized in each word... What I mean is, if I have the acronym Part List (PL) found and listed in the acronyms table, it will update in the document every instance that "Part List" is written, replacing by "PL", but it will not replace the instances where "part list" is written. Would it be possible to change that setting?

Thanks for your help

macropod · #2 04-16-2020, 06:43 AM

Quote:

Originally Posted by mrsandes

if I were to find also abbreviations that are not enclosed by parenthesis, what else would I have to delete on the code?

I just removed the "\(" and "\)" on the search mechanism, but it gives me an error "Subscript out of range" and highlights the line:

Code:

StrAcronyms = StrAcronyms & Split(StrTmp, "|")(1) & vbTab & Split(StrTmp, "|")(0) & vbCr

Simply omitting the "\(" and "\)" is sufficient for the Find, but the highlighted line depends on the presence of '|' characters, which are inserted by the preceding line:

Code:

StrTmp = Replace(Replace(Replace(.Text, " (", "("), "(", "|"), ")", "")

In any event, that change is liable to result is far more false matches.

Quote:

Originally Posted by mrsandes

Another thing that I noticed is that the AcronymManager macro will not replace the text in the document for the acronym if the text is not capitalized in each word... What I mean is, if I have the acronym Part List (PL) found and listed in the acronyms table, it will update in the document every instance that "Part List" is written, replacing by "PL", but it will not replace the instances where "part list" is written. Would it be possible to change that setting?

That's because it was assumed that strings such as 'parts list' might be intentional non-uses of the defined term. You can alter the behaviour by changing:
.MatchCase = True
to:
.MatchCase = False

mrsandes · #3 04-16-2020, 07:36 AM

Quote:

Originally Posted by macropod

Simply omitting the "\(" and "\)" is sufficient for the Find, but the highlighted line depends on the presence of '|' characters, which are inserted by the preceding line:

Code:

StrTmp = Replace(Replace(Replace(.Text, " (", "("), "(", "|"), ")", "")

In any event, that change is liable to result is far more false matches.

So if I were to test the results with the search looking for all matches (without parenthesis), I would have to add the '|' characters to each of the found acronyms? That's what the replace line is doing, right?

Quote:

Originally Posted by macropod

That's because it was assumed that strings such as 'parts list' might be intentional non-uses of the defined term. You can alter the behaviour by changing:
.MatchCase = True
to:
.MatchCase = False

That change has a side effect of replacing the first instance of the acronym to all uppercase letters definition, so the first instance looks like: PARTS LIST (PL). Would you be aware of something to go around it?

macropod · #4 04-16-2020, 02:40 PM

Quote:

Originally Posted by mrsandes

So if I were to test the results with the search looking for all matches (without parenthesis), I would have to add the '|' characters to each of the found acronyms? That's what the replace line is doing, right?

No, it's not as simple as adding the | character. You would do better to do a search for such acronyms and make sure they're properly formatted to begin with.

Quote:

Originally Posted by mrsandes

That change has a side effect of replacing the first instance of the acronym to all uppercase letters definition, so the first instance looks like: PARTS LIST (PL). Would you be aware of something to go around it?

You could insert:
.MatchCase = True
before:
.Replacement.Text = StrExp & " (" & StrAcc & ")"

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