#1
|
|||
|
|||
Error Code 5453 Word has finished searching the document
I have a series of macros that replace given text in a document. Actually, they set up the Advanced Replace dialog so that the user can decide for each instance whether to replace or not. The user clicks on the Find Next button and decides. After the search is complete and the cursor is back at the first page, pressing Close or Cancel in the Replace Dialog results in the error message: Error Code 5453 Word has finished searching the document The code for a macro follows: Code:
Sub ReplaceAvenue() ' ' ReplaceAvenue Macro ' ' With Selection.Find .ClearFormatting .Replacement.ClearFormatting .Text = "Ave" .Replacement.Text = "Avenue" .Forward = True .Wrap = wdFindStop .Format = False .MatchCase = True .MatchWholeWord = True .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With SendKeys "%m" Application.Dialogs(wdDialogEditReplace).Show End Sub |
#2
|
||||
|
||||
So why not prefix the code with 'On Error Resume Next'? Alternatively, you could trap that specific error. For example:
Code:
Sub ReplaceAvenue() On Error GoTo Done With Application.Dialogs(wdDialogEditReplace) SendKeys "%m" With Selection.Find .ClearFormatting .Replacement.ClearFormatting .Text = "Ave" .Replacement.Text = "Avenue" .Forward = True .Wrap = wdFindStop .Format = False .MatchCase = True .MatchWholeWord = True .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With .Show End With Done: If Err.Number = 5452 Then Exit Sub End Sub
__________________
Cheers, Paul Edstein [Fmr MS MVP - Word] |
#3
|
|||
|
|||
Thank you for the reminder.
|
|
Similar Threads | ||||
Thread | Thread Starter | Forum | Replies | Last Post |
VBA in Excel: Add a new Word Document on Template (Type Mismatch Error)) | tinfanide | Excel Programming | 1 | 03-29-2012 09:10 AM |
Finding or searching ^ character in word document | shahin3121 | Word | 2 | 03-05-2012 06:16 PM |
Microsoft Code Error 1907 | JHauglid | Office | 1 | 02-27-2012 12:15 AM |
Error code 0x800CCC80 | Kevin | Outlook | 1 | 03-18-2011 07:20 AM |
Word: The document 'Filename' caused a serious error the last time ... | martincruise | Word | 0 | 02-25-2010 01:47 AM |