How to set different font and color for a text in Word document from Excel macro

I would do it like this:

Sub ReleaseVer()
    Dim wrdApp As New Word.Application
    Dim wrdDoc As Word.Document
    Dim wrdColour As Word.WdColor
    Dim Result As Boolean
    Dim wrdSize As Single
    
    Application.DisplayAlerts = True
    Application.EnableEvents = False
    Application.ScreenUpdating = True
 
    Set wrdApp = CreateObject("Word.Application")
    wrdApp.Visible = True
    Set wrdDoc = wrdApp.Documents.Open(template_doc)
    Dim wrdRange As Word.Range

    release_version = Range("E4").Value
    
    Select Case release_version
        Case Is > 10
            wrdSize = 12
            wrdColour = wdColorRed
        Case Else
            wrdSize = 12
            wrdColour = wdColorGreen
    End Select
    
    With wrdDoc.Content.Find
        .Text = "{release_version}"
        .Replacement.Text = release_version
        .Replacement.Font.Color = wrdColour
        .Replacement.Font.Size = wrdSize
        Result = .Execute(Replace:=Word.WdReplace.wdReplaceAll)
    End With

End Sub

Select allOpen in new window

Dear Graharm,

Thank you for your reply,  the code of changing Font is working but not with the color

It run thru all codes but did not change the color,  why?

Many thanks,

Following are my code: (last 2 comment outed lines are my original code)

    If this_redo_size > base_redo_size Then
       With wrdDoc.Content.Find
          .Text = "{base_redo_size}"
          .Replacement.Text = base_redo_size
          .Replacement.Font.Color = wrdColourSeaGreen
          .Replacement.Font.Size = 12
          Result = .Execute(Replace:=Word.WdReplace.wdReplaceAll)
       End With
       With wrdDoc.Content.Find
          .Text = "{this_redo_size}"
          .Replacement.Text = this_redo_size
          .Replacement.Font.Color = wrdColourRed
          .Replacement.Font.Size = 12
          Result = .Execute(Replace:=Word.WdReplace.wdReplaceAll)
       End With
    Else
       With wrdDoc.Content.Find
          .Text = "{base_redo_size}"
          .Replacement.Text = base_redo_size
          .Replacement.Font.Color = wrdColourRed
          .Replacement.Font.Size = 12
          Result = .Execute(Replace:=Word.WdReplace.wdReplaceAll)
       End With
       With wrdDoc.Content.Find
          .Text = "{this_redo_size}"
          .Replacement.Text = this_redo_size
          .Replacement.Font.Color = wdColorSeaGreen
          .Replacement.Font.Size = 12
          Result = .Execute(Replace:=Word.WdReplace.wdReplaceAll)
       End With
    End If
    'Result = wrdDoc.Content.Find.Execute(FindText:="{base_redo_size}", ReplaceWith:=base_redo_size, Replace:=Word.WdReplace.wdReplaceAll)
    'Result = wrdDoc.Content.Find.Execute(FindText:="{this_redo_size}", ReplaceWith:=this_redo_size, Replace:=Word.WdReplace.wdReplaceAll)

Dear Graham,

Yes, I am able to color it. Just one small  question.

Since I have more than 20 different set of values to be compared and need to set different color. therefore I was trying to put above code into a function, however, every time when the code up to [Marked ABORT below] will abort.  Do you think that I cannot make such call ?  Here is my function call and main body

Function set_color(base_text As String, base_value As Long, this_text As String, this_value As Long)
    If this_value > base_value Then
       With wrdDoc.Content.Find         ' ALWAYS abort after this line of code - ABORT HERE
          .Text = base_text          
          .Replacement.Text = base_value
          .Replacement.Font.Color = wdColorSeaGreen
          .Replacement.Font.Size = 10
          Resul = .Execute(Replace:=Word.WdReplace.wdReplaceAll)
       End With
       With wrdDoc.Content.Find
          .Text = this_text
          .Replacement.Text = this_value
          .Replacement.Font.Color = wdColorRed
          .Replacement.Font.Size = 10
          Result = .Execute(Replace:=Word.WdReplace.wdReplaceAll)
       End With
    Else
       With wrdDoc.Content.Find
          .Text = base_text
          .Replacement.Text = base_value
          .Replacement.Font.Color = wdColorRed
          .Replacement.Font.Size = 10
          Result = .Execute(Replace:=Word.WdReplace.wdReplaceAll)
       End With
       With wrdDoc.Content.Find
          .Text = this_text
          .Replacement.Text = this_value
          .Replacement.Font.Color = wdColorSeaGreen
          .Replacement.Font.Size = 10
          Result = .Execute(Replace:=Word.WdReplace.wdReplaceAll)
       End With
    End If
End Function

sub main()
.......
........
    base_text = "base_redo_size}"
    base_value = base_redo_size
    this_text = "this_redo_size}"
    this_value = this_redo_size
   
    Result = set_color(base_text, base_value, this_text, this_value)

Is there an error message? If so what is it?

Hi Graham,

With wrdDoc.Content.Find         <-- error code (err.number) of 424 with no description
   

That is an 'Object required' error.

Is the wrdDoc object variable definition within the scope of that code, and is it still instantiated?

Also do you have Option Explicit in the declarations section to catch undefined variables at compile time?

Excellent solution, thank you Graham.