Thank you so much, macropod!
I'm so grateful for your help.
As always, your solution is elegant.
Just for future reference, I would like to mention a little problem I had with this part of the code:
Code:
Set RngFnd = FRDoc.Tables(1).Cell(i, 1).Range
With RngFnd
.End = .End - 1
.Copy
strFnd = .Text
End With
.Text = strFnd
When I run it, it didn't find any match when clearly there were many. Then I introduced a small modification:
Code:
Set RngFind = GlossaryDoc.Tables(1).Cell(i, 1).Range
With RngFind
.Copy
.End = .End - 2
strFind = .Text
End With
.Text = strFind
It works fine now but there is a little final problem: The replacement text keeps the column formatting (which I don't want). It is probably a stupid question but is there a simple command to copy into the clipboard that highlighted, commented text in regular format?
Once again, Paul (macropod), thank you so very much for all of your help.