Macro in Word to Combine Text and Numbers

[rsrasc]

Hi all,

Hope you all doing well.

I need some little help here.

I found the following code in the internet and seems to be partially working for what I need.

I was wondering if the following code can be modified so it can bold the word "Chapter" with any number (could be any number from 1 up to 150) in the document.




Thank you for your support.

Sub Formatting_Chapter()
Dim A(3) As String
A(1) = "Chapter 1"
A(2) = "Chapter 2"
A(3) = "Chapter 3"
For i = 1 To 3
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
       .Forward = True
       .Wrap = wdFindStop
       .Format = False
       .MatchCase = False
       .MatchWholeWord = False
       .MatchWildcards = False
       .MatchSoundsLike = False
       .MatchAllWordForms = False
       .Replacement.Font.Bold = True
       .Replacement.Font.ColorIndex = wdRed
      .Execute FindText:=A(i), ReplaceWith:=A(i), Format:=True, _
         Replace:=wdReplaceAll
End With
Next i
End Sub

[macropod]

You don't need VBA for this - it can all be done with a single wildcard Find/Replace, where:
Find = Chapter [0-9]@>
Replace = \1
and you set the replacement font colour appropriately.

[rsrasc]

Hi Macropod, thank you for the code. Is working great! Much appreciated!