Word not functioning

Question

Word not functioning

SteveD 625

Hello from Steve

Objective please

from this 96 MONROE

to this 00096 MONROE

to this 00096 MONROE
```Sub AddZeroBeforeTwoDigits()

```haskell
With Selection.Find
    .ClearFormatting
    .Replacement.ClearFormatting
    .Text = "  [0-9]{2} "
    ' Replace with 000 + the two digits
    .Replacement.Text = "000\1"
    ' Turn on formatting for the replacement
    .Format = True
    .Replacement.Font.Size = 12
    .Forward = True
    .Wrap = wdFindStop
    .MatchWildcards = True
End With
``` Selection.Find.Execute Replace:=wdReplaceOne

End Sub

0 comments

Answer accepted by question author

Senthil kumar 2,500

Hi @SteveD

attached the modified code. its working well. please check and give your feedback.

.Text = " [0-9]{2} " here is the problem.

With Selection.Find
    .ClearFormatting
    .Replacement.ClearFormatting
    .Text = " ([0-9]{2}) "
    .Replacement.Text = "000\1"
    .Format = True
    .Replacement.Font.Size = 12
    .Forward = True
    .Wrap = wdFindStop
    .MatchWildcards = True
End With
Selection.Find.Execute Replace:=wdReplaceAll

Thanks.

SteveD 625 Reputation points

2026-07-13T05:36:54.85+00:00

Hello Senthil

I thank you

All the Best

Steve
Senthil kumar 2,500 Reputation points

2026-07-13T07:10:23.6833333+00:00

i am very glad to help you.

1 additional answer

Your answer

SteveD 625 Reputation points

2026-07-13T05:36:54.85+00:00

Hello Senthil

I thank you

All the Best

Steve
Senthil kumar 2,500 Reputation points

2026-07-13T07:10:23.6833333+00:00

i am very glad to help you.

Answer 1

Deleted

This answer has been deleted due to a violation of our Code of Conduct. The answer was manually reported or identified through automated detection before action was taken. Please refer to our Code of Conduct for more information.

Comments have been turned off. Learn more