vba macro to remove wildcard patterns and replace with static

mrbolty · #1 01-22-2023, 01:27 AM

Hi

I can't seem to make this work, i simply want to have a button in word that will run a macro to remove preset, wildcard, pattern of text and replace them with a single word

There will be multiple patterns but a single replaced word in every case

For example

find a number starting with 012 and being 10 characters long and replace with REMOVED
find an email address and replace with REMOVED

Each time having an iterative list thus of things to find but always replacing with a static text.

I tried a find string but i'm struggling with the wildcard aspect, could anyone help with an example please?

Thanks

RC

gmayor · #2 01-22-2023, 05:33 AM

<012[0-9]{7}> will find your ten digit number beginning 012
[a-zA-Z0-9._-]{1,}\@[a-zA-Z0-9._-]{1,} should find your e-mail addresses
See Replace using wildcards and Document Batch Processes

mrbolty · #3 01-22-2023, 07:30 AM

thanks, however i have zero va knowledge of how to put this in a macro and a button in a document.

Any help towards that or resources would be appreciated, what i created thus far just doesn't seem to work so i prob need to start afresh.

AlanCantor · #4 01-22-2023, 09:19 AM

This will get you close:

Code:

Sub Remove012PhoneNumbers()
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "<012[0-9]{7}>"
        .Replacement.Text = "REMOVED"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub

gmayor · #5 01-23-2023, 09:56 PM

See Document Batch Processes and the replace table pairs option. Put the search strings and what they are to be replaced with in the table. No programming knowledge is required.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
How to code a Find&Replace macro to remove a tab and bold the entire para	Frogoogue	Word VBA	4	05-30-2022 09:15 AM
Wildcard find/replace wildcard question	hephalumph	Word	1	03-12-2022 12:54 AM
Static Folder Locations to Automate a Find and Replace using Word VBA	rmoyar	Word VBA	9	01-29-2020 02:35 PM
Macro for Find/replace to remove space before Hard Return	AlfredStreich	Word VBA	4	01-23-2020 03:59 PM
Need Help With Find and Replace Wildcard	rsrasc	Word VBA	9	10-13-2015 02:37 PM