Stumped by the recorder again

Charles Kenyon · #1 06-27-2012, 02:13 PM

Try:

Code:

Sub Macro1() ' 
' Macro1 Macro ' 
' 
Selection.Find.ClearFormatting 
Selection.Find.Highlight = True 
With Selection.Find 
.Text = "the" 
.Replacement.Text = "the" 
.Forward = True 
.Wrap = wdFindContinue 
.Format = True 
.MatchCase = False 
.MatchWholeWord = False 
.MatchWildcards = False 
.MatchSoundsLike = False 
.MatchAllWordForms = False
.Execute
End With 
Selection.Copy
End Sub

Your code sets up the find criteria but doesn't run the find. I haven't tried this, but I've done a lot of coding for replace. I expect it will work.

See How to modify a recorded macro

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Stumped on Grouping with Custom Fields...	ViperMan	Project	1	06-22-2011 01:31 AM
Track chages combine: Stumped!	Ulodesk	Word	2	01-03-2011 11:43 AM
Stumped- MS Office OLE Links are "Validating". Takes Forever	mrbill	Office	0	11-09-2010 11:49 AM
Stumped With Mail Merge Formula	JennEx	Mail Merge	0	05-28-2010 07:44 AM
Help needed using the serial number date with sumifs - whole office is stumped	FraserKitchell	Excel	3	01-06-2010 12:24 PM