In word if four numerals located add a zero at the beginning.

Question

In word if four numerals located add a zero at the beginning.

SteveD 625

Hello from Steve

How do I do in VBA the below please.

In word if four numerals found add a zero at the beginning.

Anonymous

2026-04-16T06:30:03.71+00:00

Thank you for reaching out.

Please let us know whether the issue has been resolved or is still occurring. If the issue is resolved, we will proceed with closing this thread. If you face any further issues, please let us know and we’ll be happy to assist you.
Anonymous

2026-04-21T08:42:22.91+00:00

Hope you're doing well. Could you please let us know if the issue still persists or if it has been resolved? If everything is working fine now, we’d appreciate it if you could mark the response as "Accepted Answer". We will proceed with the thread closure by 23rd April, so we are hoping for your reply before that.
SteveD 625 Reputation points

2026-04-21T08:49:21.22+00:00

Hello Susmitha

I mark them as yes, if I push accept accept answer it turns to unaccepted Answer.

1 answer

Your answer

Anonymous

2026-04-16T06:30:03.71+00:00

Thank you for reaching out.

Please let us know whether the issue has been resolved or is still occurring. If the issue is resolved, we will proceed with closing this thread. If you face any further issues, please let us know and we’ll be happy to assist you.
Anonymous

2026-04-21T08:42:22.91+00:00

Hope you're doing well. Could you please let us know if the issue still persists or if it has been resolved? If everything is working fine now, we’d appreciate it if you could mark the response as "Accepted Answer". We will proceed with the thread closure by 23rd April, so we are hoping for your reply before that.
SteveD 625 Reputation points

2026-04-21T08:49:21.22+00:00

Hello Susmitha

I mark them as yes, if I push accept accept answer it turns to unaccepted Answer.

Answer 1

Use a wildcard Find/Replace in VBA that looks for exactly four digits and replaces them with a leading zero plus the same four digits.

Example macro:

Sub AddZeroBeforeFourDigits()
    With Selection.Find
        .ClearFormatting
        .Replacement.ClearFormatting
        .Text = "<[0-9]{4}>"
        .Replacement.Text = "0\1"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchWildcards = True
        .Execute Replace:=wdReplaceAll
    End With
End Sub

Explanation:

.Text = "<[0-9]{4}>" finds any whole word that is exactly four numerals (0–9).
.Replacement.Text = "0\1" inserts a 0 in front of the found four-digit sequence.
wdReplaceAll updates all occurrences in the document.

Run this macro on the document to prepend a zero to every standalone four-digit number.

References:

How do I... (Word)