Thread: Find a word in doc1, search for it in dictionary doc2, copy the meaning from doc 2 to doc 1
View Single Post
 
Old 09-16-2014, 02:10 PM
macropod's Avatar
macropod macropod is offline Windows 7 64bit Office 2010 32bit
Administrator
  
Join Date: Dec 2010
Location: Canberra, Australia
Posts: 22,465
macropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond repute
Default
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]
Reply With Quote