Stumped

Ulodesk · #1 12-13-2021, 10:52 AM

Back again. Not a coder, obviously.

Reviewing some of my macros this morning, I discovered some were not doing what they are supposed to. I have managed to fix a couple but am stumped here.

The first of the following two works fine. The second refuses to stop at the end of whatever selection I make and continues to the end of the document. My test document is attached. For the life of me, non-coder that I am, I cannot see the difference in teh code that would make this happen. Help appreciated.

Code:

Sub ParasDeleteMultiSelection()
'
' Macro6 Macro
'
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "^13{2,}"
        .Replacement.Text = "^p"
        .Forward = True
        .Wrap = wdFindAsk
        .Format = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub

Code:

Sub ParasInsertBlanksSelection()
'
' ParasInsertBlanksSelection Macro
'
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "[^13]"
        .Replacement.Text = "^p^p"
        .Forward = True
        .Wrap = wdFindAsk
        .Format = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Is this possible.. I am stumped!	gcross4	Excel Programming	0	01-13-2015 03:02 PM
Stumped by the recorder again	Ulodesk	Word VBA	6	07-02-2012 09:23 AM
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 With Mail Merge Formula	JennEx	Mail Merge	0	05-28-2010 07:44 AM