![]() |
#1
|
|||
|
|||
![]()
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 |
|
![]() |
||||
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 |
![]() |
shahin3121 | Word | 2 | 03-05-2012 06:16 PM |
![]() |
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 |