vba macro to remove wildcard patterns and replace with static

[mrbolty]

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]

<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]

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]

This will get you close:

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]

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.