Thanks much! I can't recreate the problem now either. But I'll keep this on
hand for the next time it appears.
Another question, is it possible to display the table entries (with VBA)?
"Graham Mayor" wrote:
It is a bit difficult to reproduce this, or account for the issue, but the
following macro when used with a table of 80 entries does not baulk at the
replacements:
Sub ReplaceFromTableList()
Dim ChangeDoc As Document, RefDoc As Document
Dim cTable As Table
Dim oldPart As Range, newPart As Range
Dim i As Long
Set RefDoc = ActiveDocument
Set ChangeDoc = Documents.Open("D:\My Documents\Test\changes.doc")
Set cTable = ChangeDoc.Tables(1)
RefDoc.Activate
For i = 1 To cTable.Rows.Count
Set oldPart = cTable.Cell(i, 1).Range
oldPart.End = oldPart.End - 1
Set newPart = cTable.Cell(i, 2).Range
newPart.End = newPart.End - 1
With Selection
.HomeKey wdStory
With .Find
.ClearFormatting
.Replacement.ClearFormatting
.Execute findText:=oldPart, _
ReplaceWith:=newPart, _
replace:=wdReplaceAll, _
MatchWildcards:=False, _
Forward:=True, _
Wrap:=wdFindContinue
End With
End With
Next i
ChangeDoc.Close wdDoNotSaveChanges
End Sub
--
Graham Mayor - Word MVP
My web site www.gmayor.com
Word MVP web site http://word.mvps.org
EKH wrote:
When searching for text in a document, the Find and Replace command
fails after being used repeatedly to find a large number (50 or more)
of phrases. I have not noticed this problem in previous versions of
Word. Any ideas as to why this happens?