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

gmayor · #2 12-13-2021, 10:00 PM

The following works

Code:

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

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

Ulodesk · #3 12-14-2021, 06:06 AM

Thank you, Graham. FindStop instead of FindAsk appears the be the difference. Much obliged. Best wishes for the holidays.

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