Dancho
01-30-2012, 11:20 PM
I'm using macro for Acronyms finding in English word text. This macro was written by Lene Fredborg, DocTools - thedoctools.com.
So, now I would like to modify so hebrew acronyms fill be found as well.
First, hebrew acronym is something like ab"c, but english acronym is ABC. secondly, I do not quite understand the following line in the code:
'Use wildcard search to find strings consisting of 3 or more uppercase letters
'Set the search conditions
'NOTE: If you want to find acronyms with e.g. 2 or more letters,
'change 3 to 2 in the line below
.Text = "<[A-Z]{3" & strListSep & "}>"
.Forward = True
.Wrap = wdFindStop
.Format = False
.MatchCase = True
.MatchWildcards = True
'Perform the search
Do While .Execute
'Continue while found
strAcronym = oRange
what means "<[A-Z]{3" & strListSep & "}>" ?
how can I change it for hebrew acronym: text in any lenght with (") inside it.
So, now I would like to modify so hebrew acronyms fill be found as well.
First, hebrew acronym is something like ab"c, but english acronym is ABC. secondly, I do not quite understand the following line in the code:
'Use wildcard search to find strings consisting of 3 or more uppercase letters
'Set the search conditions
'NOTE: If you want to find acronyms with e.g. 2 or more letters,
'change 3 to 2 in the line below
.Text = "<[A-Z]{3" & strListSep & "}>"
.Forward = True
.Wrap = wdFindStop
.Format = False
.MatchCase = True
.MatchWildcards = True
'Perform the search
Do While .Execute
'Continue while found
strAcronym = oRange
what means "<[A-Z]{3" & strListSep & "}>" ?
how can I change it for hebrew acronym: text in any lenght with (") inside it.