Macro for replacing, copying and undoing.

vthomeschoolmom · #1 12-05-2012, 07:36 AM

I use MS Word to basically work around a bunch of limitations in another piece of garbage application my company uses. I write macros to speed things I need to do. One macro I have is:

Code:

Sub ConvertSelectedNumberstoText()
'
' ConvertSelectedNumberstoText Macro
'
'
ActiveDocument.ConvertNumbersToText
With Selection.Find
  .Text = "^t"
  .Replacement.Text = " "
  .Forward = True
  .Wrap = wdFindAsk
  .Format = False
  .MatchCase = False
  .MatchWholeWord = False
  .MatchWildcards = False
  .MatchSoundsLike = False
  .MatchAllWordForms = False
  .Execute Replace:=wdReplaceAll
End With
Selection.Copy
ActiveDocument.Undo
End Sub

At the line in bold red above, Word prompts me with Word has reached the end of the document. x replacements were made. Do you want to continue searching at the beginning. I click no.

The text in my document that was previously copied is no longer selected, so the remainder of the macro does nothing useful. I think the copy line errors with a nothing is selected error.

What I want to know is if it is possible to perform the execute silently not continuing the search. I want it to leave my selection alone so that the remainder of the macro will complete.

Anyone have ideas? I see nothing obvious in the Execute method help.

Thanks

vthomeschoolmom · #2 12-05-2012, 07:41 AM

DOH!

,Wrap = wdFindContinue

I do actually want it to continue... I often find answers myself the second I post to a forum. Silly me.

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Replacing horizontal lines	eosrose	Word VBA	2	06-16-2023 11:58 PM
Help with replacing text with wildcards	sbatson5	Word	2	04-13-2012 03:49 AM
Word replacing problem!!!!	Jamal NUMAN	Word	2	07-08-2011 03:56 AM
Replacing default fonts	mark98101	Word	1	01-31-2011 02:31 PM
Replacing / editting text	LisaC	Word	0	02-25-2010 03:40 AM