Find string within word document

I have categories like:
a, Content.
a. Content:
a, Content:
I tried the following code with no success

Code:

---

Sub A123()
 
    On Error Resume Next
   
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find.Replacement.Font
        .Bold = True
        .Color = wdColorBlue
    End With
    With Selection.Find
        .text = "(a[,\.] Noi dung)([.:])"
        .Replacement.text = "a) Noi dung"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub

---

Sorry my English is very bad. Thank you

1. I added CODE tags to your macro to format it

2. Not exactly sure what you're looking to do, but based on looking at the macro, this seems to find 'Noi dung' and makes it blue

Code:

---

Option Explicit


Sub A123()
   
    With Selection.Find
        .ClearFormatting
        .Replacement.ClearFormatting
       
        With .Replacement.Font
            .Bold = True
            .Color = wdColorBlue
        End With
   
   
        .Text = "(a[,\.] Noi dung)([.:])"
        .Replacement.Text = "a) Noi dung\2"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
        .Execute Replace:=wdReplaceAll
   
    End With
End Sub

---

Ok. Thank you very much

Quote:

---

Originally Posted by lamnbj

Ok. Thank you ...

---

BTW, it's not necessary to include the entire post in a [Reply With Quote]

You can edit the material to just what you need to reference, so you didn't need the macro

It just makes a post easier to read is all :thumb