vba: Objective replace three zeros

Question

Hello from Steve

Objective please replace with 3 zeros at the beginnjing when three digits are found

Sub AddZeroBeforeThreeDigits()

With Selection.Find

    .ClearFormatting

    .Replacement.ClearFormatting

    ' Find any 3-digit number as a group

    .Text = "([0-9]{3})"

    ' Replace with 0 + the captured group

    .Replacement.Text = "0\3"

    .Forward = True

    .Wrap = wdFindStop   ' stop when end reached

    .Format = False

    .MatchWildcards = True

End With

' Execute the find

If Selection.Find.Execute Then

    ' Replace only this one occurrence

    Selection.Find.Execute Replace:=wdReplaceOne

End If
```End Sub

Answer 1

Hi @SteveD .

You’re close, but a couple Word-VBA wildcard details are off:

• \3 refers to the 3rd capture group. You only have one group, so you want \1.
• If your goal is to prefix any 3-digit number with three zeros (e.g., 123 → 000123), use 000\1.
• Also, your current code only replaces the first match. Use wdReplaceAll to replace all matches in the selection.

Sub AddZeroBeforeThreeDigits()

    With Selection.Find

        .ClearFormatting

        .Replacement.ClearFormatting

        ' Find any 3-digit number

        .Text = "([0-9]{3})"

        ' Prefix the match with three zeros

        .Replacement.Text = "000\1"

        .Forward = True

        .Wrap = wdFindStop

        .Format = False

        .MatchWildcards = True

        ' Replace all occurrences

        .Execute Replace:=wdReplaceAll

    End With

End Sub

If you actually meant “replace the 3 digits with 000” (so 123 becomes 000), then just set:

.Replacement.Text = "000".

Here's the result with the macro text above:

Before:

After

If you found my response helpful or informative, I would greatly appreciate it if you could follow this guidance or provide feedback.

Thank you. 

Answer 2

Use the wildcard backreference \1 (not \3) and let Word do the ReplaceAll in one Execute call.

To add a single leading zero to every 3‑digit number:

Sub AddZeroBeforeThreeDigits()
    With Selection.Find
        .ClearFormatting
        .Replacement.ClearFormatting

        ' Find any 3-digit number
        .Text = "([0-9]{3})"

        ' Add one leading zero before the 3-digit number
        .Replacement.Text = "0\1"

        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchWildcards = True

        ' Replace all occurrences
        .Execute Replace:=wdReplaceAll
    End With
End Sub

If the goal is to make every 3‑digit number into a 6‑digit number by adding three zeros in front (for example, 123 → 000123), change the replacement text to:

.Replacement.Text = "000\1"

This uses the same wildcard pattern as in the documentation examples: define the search pattern in .Text, define the replacement in .Replacement.Text, then call .Execute with the appropriate Replace value (wdReplaceAll, wdReplaceOne, or wdReplaceNone).

---

References:

• Finding and Replacing Text or Formatting
• Using the Replacement object
• Programmatically search for and replace text in documents