Loop action in Word until not found

gmaxey · #1 07-11-2013, 04:50 PM

Code:

Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey
Dim oRng As Word.Range
 Set oRng = ActiveDocument.Range
 With oRng.Find
   .ClearFormatting
   .Text = "\?*^13"
   .Replacement.Text = ""
   .Forward = True
   .Wrap = wdFindContinue
   .Format = False
   .MatchCase = False
   .MatchWholeWord = False
   .MatchWildcards = True
   .MatchSoundsLike = False
   .MatchAllWordForms = False
   While .Execute
     oRng.MoveEnd wdCharacter, -1
     oRng.Delete
    Wend
 End With
End Sub

kilburfi · #2 07-12-2013, 01:26 AM

Greg - thanks this code works a treat. I have to admit I was nearly there whilst waiting for a response but it took me a while (very VBA rusty)!

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Macro to create new word doc and save the file using String found in the document	VBNation	Word VBA	2	02-08-2013 07:14 AM
Get para no where txt is found, and move text to end of paragraph using Word 201	marceepoo	Word VBA	2	12-20-2012 11:42 AM
Macro to loop in Word	Yamaha Rider	Word VBA	2	02-07-2012 05:33 PM
How to link an action on one slide on a powerpoint with the same action on another	slevinmj	PowerPoint	0	02-24-2011 05:38 AM
templates 2003 can't be found in 2007 word	tintincute	Word	1	12-23-2009 08:55 PM