Find a word in doc1, search for it in dictionary doc2, copy the meaning from doc 2 to doc 1

macropod · #1 09-16-2014, 02:10 PM

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) & " ("

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Find what box in Find and replace limits the length of a search term	Hoxton118	Word VBA	7	06-10-2014 05:05 AM
Won't find in search	ep2002	Word	3	10-31-2012 05:24 PM
Macro that can find phrase and then find another and copy	jperez84	Word VBA	10	09-19-2012 04:48 PM
where we can find the meaning for all the marks that Word uses?	Jamal NUMAN	Word	2	06-26-2011 09:49 AM
Search Replace Copy	dblack7211	Word	0	05-05-2010 01:19 PM