[EKH]

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?

[Graham Mayor]

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?

[EKH]

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?

[Helmut Weber[_2_]]

Hi EKH,


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?

maybe:
http://word.mvps.org/FAQs/MacrosVBA/FlushFR.htm

--

Greetings from Bavaria, Germany

Helmut Weber, MVP WordVBA

Vista Small Business, Office XP

[EKH]

Thanks!

"Helmut Weber" wrote:

Hi EKH,


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?

maybe:
http://word.mvps.org/FAQs/MacrosVBA/FlushFR.htm

--

Greetings from Bavaria, Germany

Helmut Weber, MVP WordVBA

Vista Small Business, Office XP