You could try changing:
.Cell(i, 3).Range.Text = StrTxt
to:


.Cell(i, 3).Range.InsertBefore StrTxt & vbcr

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

After trial and error I could find why my error '91' is still there.

Coincidently document I provided contains all the occurrences of word find in the corresponding database files.

In my day to day word there may be some US numbers that may not be present in excel document.

In those cases I want to go ahead without adding anything.

Is there any way to skip if the search not foud

Unless you can provide details of when the error occurs (e.g. what is the first row in the Word document that doesn't get updated & does the column 2 value exist in the workbook), there's not much I can do about that.
That's what the code already does.

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

It worked perfect for first sample files I provided.

Please forgive me for providing new sample files as it seems the only solution for now.

In my current sample file there are all the elements (or say possible problems).

For my current file till raw 4 your code works fine after that when it comes to raw 5 it shows error. I thought error is because US RE44048 is not present in the database 1 file.

I don't know what the problem is but it shows
I got temporary solution.

I recorded macro to remove US [0-9]{5} and US [0-9]{8,11} in a temporary
It works fine for now. I Replaced column 3 then with original document.
I tried to add RE44048 in database1 file (last raw) still problem persist. It stopped without showing any error.

I don't have any clue whats going on now.

Please find my files at:
https://sites.google.com/site/rtsk2015/fo
Download: Main.docx
Download: Database1.xlsx