microsoft word find and replace with enter

Msg = 'The macro has masked ' & Str$(Counter) & ' credit cards. ' # Done masking PANs #Ĭounter = Counter / 2 ' because masks with a break were counted twiceĬounter = Counter – Preexisting ' New masks less previous mask-like data ' Visa and Mastercard - PAN broken up by. ' Visa and Mastercard - PAN broken up by spaces ' Visa and Mastercard - PAN broken up by : Execute(FindText:='xxxxxxxx', Forward:=True, Format:=True, _ Preexisting = Preexisting / 2 ' because masks with a break were counted twiceĭo While.

Execute(FindText:='xxxx', Forward:=True, Format:=True, _ ' Count how many things already look like masked PANs so the final tally is correctĭo While. Msg = 'The macro will now attempt to mask all the credit card numbers it can identify.

' Let the user know what's about to happenĭim Msg, Style, Title, Response, MyString ' This macro will search a document for numbers that look like Visa, MasterCard and AmEx credit card PANs and mask them with Xs Stop the find and replace false-positives (e.g.Include additional common number separators (what else is commonly used?).However it could be improved by adding the regex for more card types, and adding common characters used to break up the long number. The following identifies Visa, MasterCard and AmEx cards, with the above mentioned issue. I've had some luck with the below code, however it will identify and modify strings that are beyond the 16 characters for a standard credit card and I'm not sure how to stop the false-positives. Masking is a PCI DSS requirement, and there may be hundreds or thousands of documents to mask the data in.

I figure a macro using regex to do a find and replace is the fastest way for them. I'm trying to allow our staff to quickly mask the middle 8 digits of credit card data in old documents.

Microsoft word find and replace with enter