#1
|
|||
|
|||
vba macro to remove wildcard patterns and replace with static
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 |
#2
|
||||
|
||||
<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
__________________
Graham Mayor - MS MVP (Word) (2002-2019) Visit my web site for more programming tips and ready made processes www.gmayor.com |
#3
|
|||
|
|||
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. |
#4
|
|||
|
|||
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 |
#5
|
||||
|
||||
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.
__________________
Graham Mayor - MS MVP (Word) (2002-2019) Visit my web site for more programming tips and ready made processes www.gmayor.com |
|
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 |