Word 2007 Find and Replace Command fails

  • Thread starter Thread starter EKH
  • Start date Start date
E

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?
 
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

<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
 
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?
Click to expand...

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

--

Greetings from Bavaria, Germany

Helmut Weber, MVP WordVBA

Vista Small Business, Office XP
 
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)?
 
Back
Top