Thanks!

Hi macropod
I have 2 small issues.

1. I ran the code and got the following error: String parameter too long.
I clicked "debug" and the following line was highlighted.

.Replacement.Text = "^&-" & Split(Split(FRList, vbCr)(j), vbTab)(1)

It got stuck at the place where it had to insert meaning of a word whose length was 493 characters with spaces.

2. At some places in the document, the meanings are already inserted in blue after the red bracketed words. For e.g.

Australia is an awesome country. (Australia) (is) (an) (awesome) great, lovely, pleasant (country) (.)

Can a modification be made in the code so that when it is run and it finds the word (awesome), it inserts the meanings only if there is no text in blue immediately following the closing bracket.

The first of those modifications would make the code run dramatically slower. Do you really need a 493-character definition?

As for the second issue, you could try changing:
.Text = "(" & Split(Split(FRList, vbCr)(j), vbTab)(0) & ")"
.Replacement.Text = "^&-" & Split(Split(FRList, vbCr)(j), vbTab)(1)
to:
.Text = "(" & Split(Split(FRList, vbCr)(j), vbTab)(0) & ") ("
.Replacement.Text = "(" & Split(Split(FRList, vbCr)(j), vbTab)(0) & ")-" & Split(Split(FRList, vbCr)(j), vbTab)(1) & " ("

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

I will try your recommendation for the second issue soon while for the first issue if I know the maximum character limit that can be accommodated then I can take out the large definitions. What is the maximum character limit? Thanks

IIRC, the limit is 255 characters for the total length of the expression. In this case, because the Find expression & brackets are part of the replacement expression, that has to be deducted from the 255 characters.

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

Yeah that worked! Thanks! That is so awesome. 1 small thing: Is there a quick way to insert a right square bracket ] after every bold word in a document?

I asked MS Word to find the bold word and replace with ^&] but it entered the ] after a tab.

Ordinarily you could do it using just Find/Replace using the same approach as before. In this case, it looks like you've already done that with the tab as the extra character to insert. Hence then tab is now part of the bolded range. So this time, along with setting the Find to look for a bold font, tell it to look for the tab as well, with:
^t
Then, for the Replace expression, use:
]^t

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

Thank you very much