Hello, I am running the following macro:



Sub ScratchMacroI()
Dim oRng As Word.Range
Dim oRngDelete As Word.Range
Set oRng = ActiveDocument.Range
With oRng.Find
.Text = "word"
While .Execute
oRng.Select
Set oRngDelete = ActiveDocument.Bookmarks("\Line").Range
oRngDelete.Delete
Wend
End With
End Sub
Sub ScratchMacroII()
Dim oRng As Word.Range
Set oRng = ActiveDocument.Range
With oRng.Find
.Text = "word"
While .Execute
oRng.Paragraphs(1).Range.Delete
Wend
End With
End Sub

It runs fine for awhile and then gets hung up on the run time error. I should mention the document I have is 200+ pages and is filled with tables. I have attached a sample of what these tables look like.

Attached Files

sample file.docx (11.9 KB, 11 views)

You posted two macros. Which one is giving you trouble? You might try adding a DoEvents statement after the Delete statements.

__________________
Greg Maxey
Please visit my web site at http://www.gregmaxey.com/